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

LMDZ5/trunk/libf/dyn3d/guide_mod.F90

@@ -314 +314 @@
     USE control_mod, ONLY: day_step, iperiod
     USE comconst_mod, ONLY: dtvr, daysec
+    USE comvert_mod, ONLY: ap, bp, preff, presnivs
  
     IMPLICIT NONE
@@ -319 +320 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "comvert.h"
 
     ! Variables entree
@@ -607 +607 @@
   use exner_milieu_m, only: exner_milieu
   use comconst_mod, only: kappa, cpp
+  use comvert_mod, only: preff, pressure_exner, bp, ap
   IMPLICIT NONE
 
   include "dimensions.h"
   include "paramet.h"
-  include "comvert.h"
   include "comgeom2.h"
 
@@ -1517 +1517 @@
 
     USE comconst_mod, ONLY: pi
+    USE comvert_mod, ONLY: presnivs
     
     IMPLICIT NONE
@@ -1524 +1525 @@
     INCLUDE "netcdf.inc"
     INCLUDE "comgeom2.h"
-    INCLUDE "comvert.h"
     
     ! Variables entree