Changeset 2603 for LMDZ5/trunk/libf/dynphy_lonlat/phylmd/ce0l.F90

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

File:

• LMDZ5/trunk/libf/dynphy_lonlat/phylmd/ce0l.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