Changeset 2597 for LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F

Timestamp:

Jul 22, 2016, 8:44:47 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: get rid of comconst.h, make it a module comconst_mod.
EM

File:

• LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F (modified) (4 diffs)

LMDZ5/trunk/libf/dyn3dmem/integrd_loc.F

@@ -12 +12 @@
       USE integrd_mod
       USE infotrac, ONLY: ok_iso_verif ! ajout CRisi
+      USE comconst_mod, ONLY: pi
       IMPLICIT NONE
 
@@ -30 +31 @@
 c   -------------
 
-#include "dimensions.h"
-#include "paramet.h"
-#include "comconst.h"
-#include "comgeom.h"
-#include "comvert.h"
-#include "logic.h"
-#include "temps.h"
-#include "serre.h"
-#include "iniprint.h"
-!      include 'mpif.h'
+      include "dimensions.h"
+      include "paramet.h"
+      include "comgeom.h"
+      include "comvert.h"
+      include "logic.h"
+      include "temps.h"
+      include "serre.h"
+      include "iniprint.h"
 
 c   Arguments:
@@ -335 +334 @@
       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
@@ -452 +451 @@
           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