Changeset 2641 for LMDZ5/branches/testing/libf/dyn3dpar/integrd_p.F
- Timestamp:
- Sep 29, 2016, 11:26:46 PM (8 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2596-2640
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3dpar/integrd_p.F
r2160 r2641 7 7 USE parallel_lmdz 8 8 USE control_mod, only : planet_type 9 USE comconst_mod, ONLY: pi 10 USE logic_mod, ONLY: leapf 11 USE comvert_mod, ONLY: ap, bp 12 USE temps_mod, ONLY: dt 13 9 14 IMPLICIT NONE 10 15 … … 27 32 #include "dimensions.h" 28 33 #include "paramet.h" 29 #include "comconst.h"30 34 #include "comgeom.h" 31 #include "comvert.h"32 #include "logic.h"33 #include "temps.h"34 #include "serre.h"35 35 #include "iniprint.h" 36 36 … … 284 284 ije=ij_end 285 285 286 286 if (planet_type.eq."earth") then 287 287 ! Earth-specific treatment of first 2 tracers (water) 288 288 c$OMP BARRIER … … 385 385 DO l = 1, llm 386 386 massem1(ijb:ije,l)=massescr(ijb:ije,l) 387 388 c$OMP END DO NOWAIT 387 ENDDO 388 c$OMP END DO NOWAIT 389 389 END IF 390 390 c$OMP BARRIER
Note: See TracChangeset
for help on using the changeset viewer.