Changeset 2601 for LMDZ5/trunk/libf/dyn3dpar/integrd_p.F

Timestamp:

Jul 24, 2016, 11:51:55 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn temps.h into module temps_mod.F90
EM

File:

• LMDZ5/trunk/libf/dyn3dpar/integrd_p.F (modified) (4 diffs)

LMDZ5/trunk/libf/dyn3dpar/integrd_p.F

@@ -9 +9 @@
       USE comconst_mod, ONLY: pi
       USE comvert_mod, ONLY: ap, bp
+      USE temps_mod, ONLY: dt
+      
       IMPLICIT NONE
 
@@ -31 +33 @@
 #include "comgeom.h"
 #include "logic.h"
-#include "temps.h"
 #include "iniprint.h"
 
@@ -283 +284 @@
       ije=ij_end
 
-         if (planet_type.eq."earth") then
+         if (planet_type.eq."earth") then
 ! Earth-specific treatment of first 2 tracers (water)
 c$OMP BARRIER
@@ -384 +385 @@
           DO l = 1, llm
             massem1(ijb:ije,l)=massescr(ijb:ije,l)
-          ENDDO
-c$OMP END DO NOWAIT       
+          ENDDO
+c$OMP END DO NOWAIT  
       END IF
 c$OMP BARRIER