Changeset 2600 for LMDZ5/trunk/libf/dyn3dmem/initfluxsto_p.F

Timestamp:

Jul 23, 2016, 7:45:38 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn comvert.h into module comvert_mod.F90
EM

File:

• LMDZ5/trunk/libf/dyn3dmem/initfluxsto_p.F (modified) (8 diffs)

LMDZ5/trunk/libf/dyn3dmem/initfluxsto_p.F

@@ -14 +14 @@
        use misc_mod
        USE comconst_mod, ONLY: pi
+       USE comvert_mod, ONLY: nivsigs
        
       implicit none
@@ -46 +47 @@
       include "dimensions.h"
       include "paramet.h"
-      include "comvert.h"
       include "comgeom.h"
       include "temps.h"
@@ -105 +105 @@
       CALL ymds2ju(zan, 1, idayref, 0.0, zjulian)
       tau0 = itau_dyn
-        
-        do jj = 1, jjp1
+        
+        do jj = 1, jjp1
         do ii = 1, iip1
           rlong(ii,jj) = rlonu(ii) * 180. / pi
@@ -164 +164 @@
      .             1, iip1, 1, jjn,tau0, zjulian, tstep, vhoriid,
      .             filevid,dynv_domain_id)
-        
+        
       rl(1,1) = 1.
       
@@ -190 +190 @@
       call histhori(fileid, iip1, rlong(:,jjb:jje),jjn,rlat(:,jjb:jje),
      .             'scalar','Grille points scalaires', thoriid)
-        
+        
 C
 C  Appel a histvert pour la grille verticale
@@ -210 +210 @@
 C
 C  Appels a histdef pour la definition des variables a sauvegarder
-        
-        CALL histdef(fileid, "phis", "Surface geop. height", "-",
+        
+        CALL histdef(fileid, "phis", "Surface geop. height", "-",
      .                iip1,jjn,thoriid, 1,1,1, -99, 32,
      .                "once", t_ops, t_wrt)
@@ -218 +218 @@
      .                iip1,jjn,thoriid, 1,1,1, -99, 32,
      .                "once", t_ops, t_wrt)
-        
+        
         if (mpi_rank==0) then
-        
-        CALL histdef(filedid, "dtvr", "tps dyn", "s",
+        
+        CALL histdef(filedid, "dtvr", "tps dyn", "s",
      .                1,1,dhoriid, 1,1,1, -99, 32,
      .                "once", t_ops, t_wrt)
@@ -288 +288 @@
         if (mpi_rank==0) call histsync(filedid)
       endif
-        
+        
 #else
       write(lunout,*)'initfluxsto_p: Needs IOIPSL to function'