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

Timestamp:

Sep 9, 2016, 4:04:54 PM (8 years ago)

Author:

emillour

Message:

Common dynamics:

• some cleanup around unused or unecessary parameters in the dynamics (ecritphy, grireg and physic) to harmonize with LMDZ5 (Earth dyn core).
• associated changes in LMDZ.MARS and LMDZ.GENERIC

EM

File:

• trunk/LMDZ.COMMON/libf/dyn3d/conf_gcm.F90 (modified) (2 diffs)

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

@@ -4 +4 @@
 SUBROUTINE conf_gcm( tapedef, etatinit )
 
-USE control_mod
 #ifdef CPP_IOIPSL
   use IOIPSL
@@ -11 +10 @@
   use ioipsl_getincom
 #endif
+  USE control_mod, ONLY: anneeref, config_inca, day_step, dayref, &
+                         dissip_period, fractday, iapp_tracvl, &
+                         iconser, iecri, ip_ebil_dyn, iperiod, &
+                         iphysiq, less1day, nday, ndynstep, nsplit_phys, &
+                         offline, ok_dyn_ave, ok_dyn_ins, ok_dynzon, &
+                         output_grads_dyn, periodav, planet_type, &
+                         raz_date, resetvarc, starttime, timestart
   USE infotrac, ONLY : type_trac
   use assert_m, only: assert