Context Navigation

logic.h @ 2146

Last change on this file since 2146 was 1984, checked in by Ehouarn Millour, 11 years ago
Cleanup and update of "grilles_gcm_netcdf_sub": removed old version, removed flag "grilles_gcm_netcdf" used to trigger output of grilles_gcm.nc file (file will now always be created) and fixed writing vertical levels presnivs in the file. JBM+EM
Property copyright set to Name of program: LMDZ Creation date: 1984 Version: LMDZ5 License: CeCILL version 2 Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539 See the license file in the root directory Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 1.0 KB

Rev	Line
[630]	1	!
[1319]	2	! $Id: logic.h 1984 2014-02-18 09:59:29Z idelkadi $
[630]	3	!
[1000]	4	!
[1520]	5	! NB: keep items of different kinds in seperate common blocs to avoid
	6	! "misaligned commons" issues
[1000]	7	!-----------------------------------------------------------------------
	8	! INCLUDE 'logic.h'
[630]	9
[1520]	10	COMMON/logicl/ purmats,forward,leapf,apphys, &
[1000]	11	& statcl,conser,apdiss,apdelq,saison,ecripar,fxyhypb,ysinus &
[1319]	12	& ,read_start,ok_guide,ok_strato,ok_gradsfile &
[1984]	13	& ,ok_limit,ok_etat0,hybrid
[630]	14
[1520]	15	COMMON/logici/ iflag_phys,iflag_trac
	16
[1000]	17	LOGICAL purmats,forward,leapf,apphys,statcl,conser, &
	18	& apdiss,apdelq,saison,ecripar,fxyhypb,ysinus &
[1319]	19	& ,read_start,ok_guide,ok_strato,ok_gradsfile &
[1984]	20	& ,ok_limit,ok_etat0
	21
[1520]	22	logical hybrid ! vertical coordinate is hybrid if true (sigma otherwise)
	23	! (only used if disvert_type==2)
[630]	24
[1520]	25	integer iflag_phys,iflag_trac
	26	!$OMP THREADPRIVATE(/logicl/)
	27	!$OMP THREADPRIVATE(/logici/)
[1000]	28	!-----------------------------------------------------------------------

Note: See TracBrowser for help on using the repository browser.