Changeset 2603 for LMDZ5/trunk/libf/dynphy_lonlat

Timestamp:

Jul 25, 2016, 11:31:56 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn logic.h into module logic_mod.F90
EM

Location:

LMDZ5/trunk/libf/dynphy_lonlat/phylmd

Files:

• ce0l.F90 (modified) (2 diffs)
• limit_netcdf.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 logic_mod, ONLY: iflag_phys, ok_etat0, ok_limit
   USE comvert_mod, ONLY: pa, preff, pressure_exner
   USE temps_mod, ONLY: calend, day_ini, dt
@@ -47 +48 @@
   include "comgeom2.h"
   include "iniprint.h"
-  include "logic.h"
   REAL               :: masque(iip1,jjp1)             !--- CONTINENTAL MASK
   REAL               :: phis  (iip1,jjp1)             !--- GROUND GEOPOTENTIAL

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

@@ -67 +67 @@
                   NF90_DEF_DIM, NF90_DEF_VAR, NF90_PUT_VAR, NF90_PUT_ATT,      &
                   NF90_NOERR,   NF90_NOWRITE, NF90_DOUBLE,  NF90_GLOBAL,       &
-                  NF90_CLOBBER, NF90_ENDDEF,  NF90_UNLIMITED, NF90_FLOAT
+                  NF90_CLOBBER, NF90_ENDDEF,  NF90_UNLIMITED, NF90_FLOAT
   USE inter_barxy_m,      ONLY: inter_barxy
   USE netcdf95,           ONLY: nf95_def_var, nf95_put_att, nf95_put_var
@@ -82 +82 @@
 !-------------------------------------------------------------------------------
 ! Local variables:
-  include "logic.h"
   include "comgeom2.h"