Changeset 2600 for LMDZ5/trunk/libf/dyn3dpar/guide_p_mod.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/dyn3dpar/guide_p_mod.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/dyn3dpar/guide_p_mod.F90

@@ -340 +340 @@
     USE control_mod
     USE comconst_mod, ONLY: daysec, dtvr, cpp, kappa
+    USE comvert_mod, ONLY: ap, bp, preff, presnivs, pressure_exner
     
     IMPLICIT NONE
@@ -345 +346 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comvert.h"
 
     ! Variables entree
@@ -707 +707 @@
   USE Bands
   USE comconst_mod, ONLY: cpp, kappa
+  USE comvert_mod, ONLY: preff, pressure_exner, bp, ap
   IMPLICIT NONE
 
   include "dimensions.h"
   include "paramet.h"
-  include "comvert.h"
   include "comgeom2.h"
 
@@ -1814 +1814 @@
     USE parallel_lmdz
     USE comconst_mod, ONLY: pi
+    USE comvert_mod, ONLY: presnivs
     IMPLICIT NONE
 
@@ -1820 +1821 @@
     INCLUDE "netcdf.inc"
     INCLUDE "comgeom2.h"
-    INCLUDE "comvert.h"
     
     ! Variables entree