diff --git a/Apps/NEP/ana_nudgcoef.h b/Apps/NEP/ana_nudgcoef.h index e1d03fb..be51693 100644 --- a/Apps/NEP/ana_nudgcoef.h +++ b/Apps/NEP/ana_nudgcoef.h @@ -58,8 +58,8 @@ USE mod_ncparam USE mod_scalars #ifdef DISTRIBUTE -! USE distribute_mod, ONLY : mp_collect + USE mp_exchange_mod, ONLY : mp_exchange2d #endif ! implicit none @@ -673,6 +673,20 @@ END IF #endif END IF +#ifdef DISTRIBUTE +# ifdef M3CLM_NUDGING + CALL mp_exchange2d (ng, tile, model, 1, & + & LBi, UBi, LBj, UBj, & + & NghostPoints, .FALSE., .FALSE., & + & CLIMA(ng)%M3nudgcof) +# endif +# ifdef M2CLM_NUDGING + CALL mp_exchange2d (ng, tile, model, 1, & + & LBi, UBi, LBj, UBj, & + & NghostPoints, .FALSE., .FALSE., & + & CLIMA(ng)%M2nudgcof) +# endif +#endif RETURN END SUBROUTINE ana_nudgcoef_tile