source: LMDZ5/branches/LMDZ5V2.0-dev/libf/dyn3dpar/logic.h @ 4126

Last change on this file since 4126 was 1488, checked in by jghattas, 14 years ago

Added subroutine grilles_gcm_netcdf_sub containing the first part of program create_fausse_var in file grilles_gcm_netcdf.F . The new subroutine is called in ce0l if parameter grilles_gcm_netcdf=T (default =F). The subroutine creates the file grilles_gcm.nc .
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 774 bytes
RevLine 
[630]1!
[1319]2! $Id: logic.h 1488 2011-02-17 15:23:03Z fairhead $
[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                     &
[1488]12     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
[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                     &
[1488]17     &  ,ok_limit,ok_etat0,grilles_gcm_netcdf
[630]18
19      INTEGER iflag_phys
[1000]20!$OMP THREADPRIVATE(/logic/)
21!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.