Changeset 3814 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/regr_lat_time_climoz_m.F90

Timestamp:

Apr 15, 2015, 6:49:07 PM (10 years ago)

Author:

ymipsl

Message:

remove all dynamic dependency in LMDZ physics except for the include "dimensions.h"

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/regr_lat_time_climoz_m.F90 (modified) (4 diffs)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/regr_lat_time_climoz_m.F90

@@ -73 +73 @@
     use netcdf, only: nf90_get_att, nf90_get_var, nf90_noerr, nf90_nowrite
     use assert_m, only: assert
-
+    use comconst_phy_mod, only : pi
+    use comgeom2_phy_mod, only : rlatv
     integer, intent(in):: read_climoz ! read ozone climatology
     ! Allowed values are 1 and 2
@@ -84 +85 @@
     include "dimensions.h"
     ! (for "jjm")
-    include "paramet.h"
-    ! (for the other included files)
-    include "comgeom2.h"
-    ! (for "rlatv")
-    include "comconst.h"
-    ! (for "pi")
 
     integer n_plev ! number of pressure levels in the input data
@@ -339 +334 @@
          nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var
     use netcdf, only: nf90_clobber, nf90_float, nf90_global
-
+    use comconst_phy_mod, only : pi
+    use comgeom2_phy_mod, only : rlatu
     integer, intent(in):: ncid_in, n_plev
     integer, intent(out):: ncid_out, varid_plev, varid_time
@@ -350 +346 @@
 
     include "dimensions.h"
-    ! (for "jjm")
-    include "paramet.h"
-    ! (for the other included files)
-    include "comgeom2.h"
-    ! (for "rlatu")
-    include "comconst.h"
-    ! (for "pi")
 
     integer ncerr