source: LMDZ4/trunk/libf/dyn3dpar/logic.h @ 5065

Last change on this file since 5065 was 1319, checked in by Laurent Fairhead, 15 years ago
  • Modifications to the start and limit creation routines to account for different

calendars

  • Modification to phyetat0 to force the mask read in the start files to match the

surface fractions read in the limit file

  • Force readaerosol.F90 to read in aerosols file with 12 timesteps

  • Modifications aux routines de créations des fichiers start et limit pour prendre

en compte différents calendriers

  • Modification à phyetat0 pour forcer le masque lu dans le fichier start à être

compatible avec les fractions de surface lu dans le fichier limit

  • Forcer readaerosol à ne lire que des fichiers à 12 pas de temps
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 736 bytes
RevLine 
[630]1!
[1319]2! $Id: logic.h 1319 2010-02-23 21:29:54Z abarral $
[630]3!
[1000]4!
5!
6!-----------------------------------------------------------------------
7! INCLUDE 'logic.h'
[630]8
[1000]9      COMMON/logic/ purmats,iflag_phys,forward,leapf,apphys,            &
10     &  statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus       &
[1319]11     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
12     &  ,ok_limit,ok_etat0
[630]13
[1000]14      LOGICAL purmats,forward,leapf,apphys,statcl,conser,               &
15     & apdiss,apdelq,saison,ecripar,fxyhypb,ysinus                      &
[1319]16     &  ,read_start,ok_guide,ok_strato,ok_gradsfile                     &
17     &  ,ok_limit,ok_etat0
[630]18
19      INTEGER iflag_phys
[1000]20!$OMP THREADPRIVATE(/logic/)
21!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.