Ticket #566: nudg_diff.txt

File nudg_diff.txt, 1.1 KB (added by kate, 12 years ago)

sample patch to ana_nudgcoef.h

Line 
1diff --git a/Apps/NEP/ana_nudgcoef.h b/Apps/NEP/ana_nudgcoef.h
2index 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