source: LMDZ4/branches/LMDZ4V5.0-dev/libf/dyn3dpar/control_mod.F90 @ 5360

Last change on this file since 5360 was 1357, checked in by Ehouarn Millour, 15 years ago

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 size: 876 bytes
RevLine 
[1299]1!
[1357]2! $Id $
[1299]3!
4
5MODULE control_mod
6
7! LF 01/2010
8! Remplacement du fichier et common control
9
10  IMPLICIT NONE
11
12  REAL    :: periodav
[1325]13  INTEGER :: nday,day_step,iperiod,iapp_tracvl,nsplit_phys
[1299]14  INTEGER :: iconser,iecri,idissip,iphysiq,iecrimoy
15  INTEGER :: dayref,anneeref, raz_date, ip_ebil_dyn
[1357]16  LOGICAL :: offline
[1299]17  CHARACTER (len=4)  :: config_inca
[1357]18  CHARACTER (len=10) :: planet_type ! planet type ('earth','mars',...)
19  LOGICAL output_grads_dyn ! output dynamics diagnostics in
20                           ! binary grads file 'dyn.dat' (y/n)
21  LOGICAL ok_dynzon  ! output zonal transports in dynzon.nc file
22  LOGICAL ok_dyn_ins ! output instantaneous values of fields
23                     ! in the dynamics in NetCDF files dyn_hist*nc
24  LOGICAL ok_dyn_ave ! output averaged values of fields in the dynamics
25                     ! in NetCDF files dyn_hist*ave.nc
[1299]26
27END MODULE
Note: See TracBrowser for help on using the repository browser.