Changeset 1357 for LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/control_mod.F90

Timestamp:

Apr 14, 2010, 4:03:19 PM (14 years ago)

Author:

Ehouarn Millour

Message:

Some cleanup and fixing the possibility to output fields in the dynamics, on the dynamical grids.

CLEANUPS:

• arch-PW6_VARGAS.fcm : add potentially benefic compiling options
• removed obsolete "control.h" in dyn3d/dyn3dpar (module control_mod.F90 is used instead)

OUTPUTS in the dynamics (3 sets of files, one for each grid: scalar, u, v):

• removed "com_io_dyn.h" common; use module "com_io_dyn_mod.F90" instead
• updated "initdynav.F","inithist.F","writehist.F" and "writedynav.F" in bibio: which field will be written is hard coded there.
• flags "ok_dyn_ins" and "ok_dyn_ave" (loaded via conf_gcm.F) trigger output of fields in the dynamics: if ok_dyn_ins is true, then files "dyn_hist.nc", "dyn_histu.nc" and "dyn_histv.nc" are written (the frequency of the outputs is given by 'iecri' in run.def; values are written every 'iecri' dynamical step). if ok_dyn_ave is true then files "dyn_hist_ave.nc", "dyn_histu_ave.nc" and "dyn_histv_ave.nc" are written (the rate at which averages and made/written, in days, is given by 'periodav' in run.def).

EM

File:

• LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/control_mod.F90 (modified) (2 diffs)

LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3d/control_mod.F90

@@ -1 +1 @@
 !
-! $Id$
+! $Id $
 !
 
@@ -14 +14 @@
   INTEGER :: iconser,iecri,idissip,iphysiq,iecrimoy
   INTEGER :: dayref,anneeref, raz_date, ip_ebil_dyn
-  LOGICAL :: offline, output_grads_dyn, ok_dynzon
+  LOGICAL :: offline
   CHARACTER (len=4)  :: config_inca
-  CHARACTER (len=10) :: planet_type
+  CHARACTER (len=10) :: planet_type ! planet type ('earth','mars',...)
+  LOGICAL output_grads_dyn ! output dynamics diagnostics in
+                           ! binary grads file 'dyn.dat' (y/n)
+  LOGICAL ok_dynzon  ! output zonal transports in dynzon.nc file
+  LOGICAL ok_dyn_ins ! output instantaneous values of fields
+                     ! in the dynamics in NetCDF files dyn_hist*nc
+  LOGICAL ok_dyn_ave ! output averaged values of fields in the dynamics
+                     ! in NetCDF files dyn_hist*ave.nc
 
 END MODULE