1 | diff --git a/Apps/NEP/ana_nudgcoef.h b/Apps/NEP/ana_nudgcoef.h
|
---|
2 | index e1d03fb..be51693 100644
|
---|
3 | --- a/Apps/NEP/ana_nudgcoef.h
|
---|
4 | +++ b/Apps/NEP/ana_nudgcoef.h
|
---|
5 | @@ -58,8 +58,8 @@
|
---|
6 | USE mod_ncparam
|
---|
7 | USE mod_scalars
|
---|
8 | #ifdef DISTRIBUTE
|
---|
9 | -!
|
---|
10 | USE distribute_mod, ONLY : mp_collect
|
---|
11 | + USE mp_exchange_mod, ONLY : mp_exchange2d
|
---|
12 | #endif
|
---|
13 | !
|
---|
14 | implicit none
|
---|
15 | @@ -673,6 +673,20 @@
|
---|
16 | END IF
|
---|
17 | #endif
|
---|
18 | END IF
|
---|
19 | +#ifdef DISTRIBUTE
|
---|
20 | +# ifdef M3CLM_NUDGING
|
---|
21 | + CALL mp_exchange2d (ng, tile, model, 1, &
|
---|
22 | + & LBi, UBi, LBj, UBj, &
|
---|
23 | + & NghostPoints, .FALSE., .FALSE., &
|
---|
24 | + & CLIMA(ng)%M3nudgcof)
|
---|
25 | +# endif
|
---|
26 | +# ifdef M2CLM_NUDGING
|
---|
27 | + CALL mp_exchange2d (ng, tile, model, 1, &
|
---|
28 | + & LBi, UBi, LBj, UBj, &
|
---|
29 | + & NghostPoints, .FALSE., .FALSE., &
|
---|
30 | + & CLIMA(ng)%M2nudgcof)
|
---|
31 | +# endif
|
---|
32 | +#endif
|
---|
33 |
|
---|
34 | RETURN
|
---|
35 | END SUBROUTINE ana_nudgcoef_tile
|
---|