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

Timestamp:

May 3, 2019, 1:10:27 PM (6 years ago)

Author:

slebonnois

Message:

SL, Venus: new keys for flexibility cp0/cp(T) and Held-Suarez type physics

File:

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

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

@@ -17 +17 @@
                          output_grads_dyn, periodav, planet_type, &
                          raz_date, resetvarc, starttime, timestart, &
-                         ecritstart,force_conserv_tracer
+                         ecritstart, cpofT,force_conserv_tracer
   USE infotrac, ONLY : type_trac
   use assert_m, only: assert
@@ -476 +476 @@
   iphysiq = 5
   CALL getin('iphysiq', iphysiq)
+
+!Config  Key  =  cpofT
+!Config  Desc = dependence of Cp on T
+!Config  Def  = False
+!Config  Help = dependence of Cp on T (true or false)
+  cpofT = .False.
+  if (planet_type.eq."venus") then
+   cpofT = .True.
+  endif
+  CALL getin('cpofT', cpofT)
 
 !Config  Key  = iflag_trac
@@ -952 +962 @@
  write(lunout,*)' iflag_phys = ', iflag_phys
  write(lunout,*)' iphysiq = ', iphysiq
+ write(lunout,*)' cpofT = ', cpofT
  write(lunout,*)' iflag_trac = ', iflag_trac
  write(lunout,*)' iapp_tracvl = ', iapp_tracvl