source: LMDZ6/branches/LMDZ-ECRAD/libf/phylmd/surface_data.F90 @ 4109

Last change on this file since 4109 was 3792, checked in by evignon, 4 years ago

Ajout de INLANDSIS, nouvelle interface entre LMDZ et la neige de SISVAT
Etienne, 04/01/2021

  • 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 Id
File size: 1.5 KB
Line 
1!
2! $Id: surface_data.F90 3792 2021-01-04 17:01:25Z musat $
3!
4MODULE surface_data
5
6  IMPLICIT NONE
7
8  REAL, PARAMETER        :: calice=1.0/(5.1444e+06*0.15)
9  REAL, PARAMETER        :: calsno=1./(2.3867e+06*.15)
10 
11  LOGICAL, SAVE          :: ok_veget      ! true for use of vegetation model ORCHIDEE
12  !$OMP THREADPRIVATE(ok_veget)
13
14  CHARACTER(len=10), SAVE :: type_veget   ! orchidee/y/bucket/n/betaclim
15  !$OMP THREADPRIVATE(type_veget)
16
17  CHARACTER(len=6), SAVE :: type_ocean    ! force/slab/couple
18  !$OMP THREADPRIVATE(type_ocean)
19
20  ! if type_ocean=couple : version_ocean=opa8 ou nemo
21  ! if type_ocean=slab   : version_ocean=sicOBS or sicINT or sicNO
22  CHARACTER(len=6), SAVE :: version_ocean
23  !$OMP THREADPRIVATE(version_ocean)
24
25  ! Pas de temps couplage atm/oce (en secondes)
26  REAL, SAVE             :: t_coupl
27  !$OMP THREADPRIVATE(t_coupl)
28
29  ! FOR INLANDSIS:
30  !===============
31
32   INTEGER, SAVE          :: landice_opt       ! 1 for coupling with SISVAT, 2 for coupling with INLANDSIS
33  !$OMP THREADPRIVATE(landice_opt)
34
35   INTEGER, SAVE          :: iflag_tsurf_inlandsis ! 0 SISVAT method, 1 LMDZ method
36  !$OMP THREADPRIVATE(iflag_tsurf_inlandsis)
37
38   INTEGER, SAVE          :: iflag_albzenith ! dependency of albedo to zenith angle
39  !$OMP THREADPRIVATE(iflag_albzenith) 
40
41   INTEGER, SAVE          :: n_dtis           ! number of subtimesteps for INLANDSIS
42  !$OMP THREADPRIVATE(n_dtis)
43
44  ! with or without snow module/ blowing snow, ascii outfile
45   LOGICAL, SAVE           :: SnoMod,BloMod,ok_outfor
46  !$OMP THREADPRIVATE(SnoMod,BloMod,ok_outfor)   
47
48END MODULE surface_data
Note: See TracBrowser for help on using the repository browser.