source: LMDZ6/branches/Amaury_dev/libf/phylmd/surface_data.F90 @ 5128

Last change on this file since 5128 was 5099, checked in by abarral, 5 months ago

Replace most uses of CPP_DUST by the corresponding logical defined in lmdz_cppkeys_wrapper.F90
Convert several files from .F to .f90 to allow Dust to compile w/o rrtm/ecrad
Create lmdz_yoerad.f90
(lint) Remove "!" on otherwise empty line

  • 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: 2.3 KB
Line 
1
2! $Id: surface_data.F90 5099 2024-07-22 19:29:09Z abarral $
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   ! 1 for coupling with INLANDSIS
33   INTEGER, SAVE          :: landice_opt   ! 1 for coupling with INLANDSIS
34  !$OMP THREADPRIVATE(landice_opt)
35
36  ! temperature calculation options within the soil and at the surface
37   INTEGER, SAVE          :: iflag_tsurf_inlandsis,iflag_temp_inlandsis
38   !$OMP THREADPRIVATE(iflag_tsurf_inlandsis,iflag_temp_inlandsis)
39
40  ! flags for albedo and roughness calc.
41   INTEGER, SAVE          :: iflag_albcalc,iflag_z0m_snow
42  !$OMP THREADPRIVATE(iflag_albcalc,iflag_z0m_snow) 
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
48  ! activate slush, korlyakov snow density, RN z0h calc.
49   LOGICAL, SAVE          :: is_ok_slush,is_ok_density_kotlyakov,is_ok_z0h_rn
50  !$OMP THREADPRIVATE(is_ok_slush,is_ok_density_kotlyakov,is_ok_z0h_rn)
51
52  ! activate detection snow/ice layers and option XF discrtet/option runoff AC
53   LOGICAL, SAVE          :: ok_zsn_ii,discret_xf,opt_runoff_ac
54  !$OMP THREADPRIVATE(ok_zsn_ii,discret_xf, opt_runoff_ac)
55
56  ! value of z0m snow when prescribed and albedo correction term
57   REAL, SAVE             :: prescribed_z0m_snow,correc_alb
58  !$OMP THREADPRIVATE(prescribed_z0m_snow, correc_alb)
59
60  ! value of sphericity [0-99] and snow grain size [e-4m] for polar buffer snow
61  ! layer
62   REAL, SAVE             :: buf_sph_pol,buf_siz_pol
63  !$OMP THREADPRIVATE(buf_sph_pol,buf_siz_pol)
64
65
66
67END MODULE surface_data
Note: See TracBrowser for help on using the repository browser.