Changeset 2600 for LMDZ5/trunk/libf/dynphy_lonlat/phylmd

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

Location:

LMDZ5/trunk/libf/dynphy_lonlat/phylmd

Files:

• ce0l.F90 (modified) (2 diffs)
• etat0dyn_netcdf.F90 (modified) (2 diffs)
• iniphysiq_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dynphy_lonlat/phylmd/ce0l.F90

@@ -36 +36 @@
   USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, kappa, omeg, r, rad, &
                           pi, jmp1
+  USE comvert_mod, ONLY: pa, preff, pressure_exner
 
   IMPLICIT NONE
@@ -44 +45 @@
   include "paramet.h"
   include "comgeom2.h"
-  include "comvert.h"
   include "iniprint.h"
   include "temps.h"

LMDZ5/trunk/libf/dynphy_lonlat/phylmd/etat0dyn_netcdf.F90

@@ -37 +37 @@
   USE assert_eq_m,    ONLY: assert_eq
   USE comconst_mod, ONLY: pi, cpp, kappa
+  USE comvert_mod, ONLY: ap, bp, preff, pressure_exner
   IMPLICIT NONE
 
@@ -46 +47 @@
   include "paramet.h"
   include "comgeom2.h"
-  include "comvert.h"
   include "temps.h"
   include "comdissnew.h"

LMDZ5/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -12 +12 @@
                      prad,pg,pr,pcpp,iflag_phys)
   USE dimphy, ONLY: init_dimphy
+  USE comvert_mod, ONLY: preff, ap, bp, presnivs, scaleheight, pseudoalt
   USE inigeomphy_mod, ONLY: inigeomphy
   USE mod_grid_phy_lmdz, ONLY: klon_glo ! number of atmospheric columns (on full grid)
@@ -50 +51 @@
 
   include "dimensions.h"
-  include "comvert.h"
   include "iniprint.h"
   include "temps.h"