Changeset 1422 for trunk/LMDZ.COMMON/libf/dyn3d/conf_gcm.F90

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/dyn3d/conf_gcm.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/conf_gcm.F90

@@ -14 +14 @@
   use assert_m, only: assert
   use sponge_mod, only: callsponge,mode_sponge,nsponge,tetasponge
+  USE comconst_mod, ONLY: dissip_factz,dissip_deltaz,dissip_zref,               &
+                dissip_fac_mid,dissip_fac_up,dissip_hdelta,dissip_pupstart,     &
+                mode_top_bound,tau_top_bound,iflag_top_bound
+  USE logic_mod, ONLY: tidal,purmats,ok_guide,read_start,iflag_phys,            &
+                iflag_trac,ok_strato,ok_gradsfile,ok_limit,ok_etat0,            &
+                moyzon_mu,moyzon_ch,ok_strato,fxyhypb,ysinus
+  USE serre_mod, ONLY: clon,clat,grossismx,grossismy,dzoomx,dzoomy,             &
+                alphax,alphay,taux,tauy
+  USE temps_mod, ONLY: calend
 
   IMPLICIT NONE
@@ -32 +41 @@
   include "dimensions.h"
   include "paramet.h"
-  include "logic.h"
-  include "serre.h"
   include "comdissnew.h"
   include "iniprint.h"
-  include "temps.h"
-  include "comconst.h"
 
 ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique