source: LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/control.h @ 1140

Last change on this file since 1140 was 1140, checked in by Ehouarn Millour, 16 years ago

Premiere vaque de modifications pour l'unification des dynamiques (planetes-Terre) et un peu de netoyage ...

  • modified 'makegcm' and 'makegcm_fcm' to remove 'CPP_PHYS' key and add 'CPP_EARTH' preprocessing key instead
  • updated 'diagedyn.F' (in dyn3d and dyn3dpar) to use 'CPP_EARTH' key
  • added 'ioipsl_getincom.F90' and 'ioipsl_stringop.F90' to 'dyn3d' and 'dyn3dpar' for future possibility of running without IOIPSL library
  • modified conf_gcm.F ( in d'yn3d' and 'dyn3dpar') to read in flag 'planet_type' (default=='earth') (flag added in 'control.h')
  • modified 'gcm.F' (in 'dyn3d' and 'dyn3dpar') so that flags so that 'read_start' and 'iflag_phys' (known from conf_gcm.F) are used
  • added flag 'output_grads_dyn' (read by conf_gcm.F, stored in 'control.h') to write grads outputs from 'leapfrog.F' and 'leapfrog_p.F'
  • removed 'comdiss.h' from 'dyn3d' and 'dyn3dpar' (it is not used)
  • removed variable 'lstardis' from 'comdissip.h' (it is also in

'comdissnew.h'), in dyn3d as well as in dyn3dpar

  • adapted 'dyn3d/iniacademic.F' to not use 'inicons0.F' but 'iniconst.F'
  • updated 'dyn3d/etat0_netcdf.F' to not use 'inicons0' but 'iniconst' (added prerequisite pa=50000 instruction) and added #ifdef CPP_EARTH keys
  • removed 'inicons0.F' and 'disvert0.F' (not used any more)
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 KB
RevLine 
[630]1!
2! $Header$
3!
[792]4!
5!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
6!                 veillez à n'utiliser que des ! pour les commentaires
7!                 et à bien positionner les & des lignes de continuation
8!                 (les placer en colonne 6 et en colonne 73)
9!
10!-----------------------------------------------------------------------
11! INCLUDE 'control.h'
[630]12
[792]13      COMMON/control/nday,day_step,                                     &
14     &              iperiod,iapp_tracvl,iconser,iecri,idissip,iphysiq , &
[985]15     &              periodav,iecrimoy,dayref,anneeref,                  &
[1140]16     &              raz_date,offline,ip_ebil_dyn,config_inca,           &
17     &              planet_type,output_grads_dyn
[630]18
[792]19      INTEGER   nday,day_step,iperiod,iapp_tracvl,iconser,iecri,        &
20     &          idissip,iphysiq,iecrimoy,dayref,anneeref, raz_date      &
21     &          ,ip_ebil_dyn
[985]22      REAL periodav
[630]23      logical offline
[1140]24      CHARACTER (len=4) :: config_inca
25      CHARACTER(len=10) :: planet_type ! planet type ('earth','mars',...)
26      LOGICAL :: output_grads_dyn ! output dynamics diagnostics in
27                                  ! binary grads file 'dyn.dat' (y/n)
[792]28!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.