Changeset 1422 for trunk/LMDZ.COMMON/libf/dyn3d/gcm.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/dyn3d/gcm.F (modified) (4 diffs)

trunk/LMDZ.COMMON/libf/dyn3d/gcm.F

@@ -26 +26 @@
      &                       less1day,fractday,ndynstep,nsplit_phys
       use cpdet_mod, only: ini_cpdet
+      USE temps_mod, ONLY: calend,start_time,annee_ref,day_ref,
+     .          itau_dyn,itau_phy,day_ini,jD_ref,jH_ref,day_end
 
 #ifdef INCA
@@ -44 +46 @@
       USE mod_phys_lmdz_para, ONLY : klon_mpi_para_nb
 #endif
+      USE comconst_mod, ONLY: daysec,dtvr,dtphys,rad,g,r,cpp
+      USE logic_mod, ONLY: read_start,iflag_phys,ok_guide,ecripar
+
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -80 +85 @@
 #include "dimensions.h"
 #include "paramet.h"
-#include "comconst.h"
 #include "comdissnew.h"
-#include "comvert.h"
 #include "comgeom.h"
-#include "logic.h"
-#include "temps.h"
 !!!!!!!!!!!#include "control.h"
-#include "ener.h"
-#include "description.h"
-#include "serre.h"
 !#include "com_io_dyn.h"
 #include "iniprint.h"
@@ -166 +164 @@
       abort_message = 'last timestep reached'
       modname = 'gcm'
-      descript = 'Run GCM LMDZ'
       lafin    = .FALSE.
       dynhist_file = 'dyn_hist.nc'