Changeset 2600 for LMDZ5/trunk/libf/dyn3d/dynredem.F90

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/dyn3d/dynredem.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d/dynredem.F90

@@ -11 +11 @@
                     NF90_CLOSE,  NF90_PUT_ATT, NF90_UNLIMITED, NF90_CLOBBER
   USE dynredem_mod, ONLY: cre_var, put_var1, put_var2, err, modname, fil
+  USE comvert_mod, ONLY: ap,bp,aps,bps,presnivs,pseudoalt,pa,preff, &
+                              nivsig,nivsigs
   USE comconst_mod, ONLY: cpp, daysec, dtvr, g, kappa, omeg, rad
   USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy, &
-                        taux,tauy
+                              taux,tauy
   IMPLICIT NONE
   include "dimensions.h"
   include "paramet.h"
-  include "comvert.h"
   include "comgeom2.h"
   include "temps.h"
@@ -173 +174 @@
   include "paramet.h"
   include "description.h"
-  include "comvert.h"
   include "comgeom.h"
   include "temps.h"