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

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

Location:

trunk/LMDZ.COMMON/libf/dyn3d

Files:

• conf_gcm.F90 (modified) (2 diffs)
• logic_mod.F90 (modified) (1 diff)

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

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

@@ -6 +6 @@
      & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
      &  ,read_start,ok_guide,ok_strato,tidal,ok_gradsfile               &
-     &  ,ok_limit,ok_etat0,physic,grireg
+     &  ,ok_limit,ok_etat0
       logical hybrid ! vertical coordinate is hybrid if true (sigma otherwise)
                      ! (only used if disvert_type==2)