Changeset 1422 for trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/calfis.F

Timestamp:

Apr 30, 2015, 12:33:45 PM (10 years ago)

Author:

milmd

Message:

In GENERIC, MARS and COMMON models replace some include files by modules (usefull for decoupling physics with dynamics).

File:

• trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/calfis.F (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dynlonlat_phylonlat/calfis.F

@@ -36 +36 @@
 ! used only for zonal averages
       USE moyzon_mod
+      USE comvert_mod, ONLY: presnivs,preff
+      USE comconst_mod, ONLY: daysec,dtvr,dtphys,kappa,cpp,g,rad,pi
+      USE logic_mod, ONLY: moyzon_ch,moyzon_mu
 
       IMPLICIT NONE
@@ -93 +96 @@
 #include "dimensions.h"
 #include "paramet.h"
-#include "temps.h"
-#include "logic.h"
 
       INTEGER ngridmx
       PARAMETER( ngridmx = 2+(jjm-1)*iim - 1/jjm   )
 
-#include "comconst.h"
-#include "comvert.h"
 #include "comgeom2.h"
 #include "iniprint.h"