Changeset 3792 for LMDZ6/trunk/libf/phylmd/surface_data.F90

Timestamp:

Jan 4, 2021, 6:01:25 PM (3 years ago)

Author:

evignon

Message:

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

File:

• LMDZ6/trunk/libf/phylmd/surface_data.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/surface_data.F90

@@ -15 +15 @@
   !$OMP THREADPRIVATE(type_veget)
 
-  LOGICAL, SAVE          :: ok_snow       ! true for coupling to snow model SISVAT
-  !$OMP THREADPRIVATE(ok_snow)
-
   CHARACTER(len=6), SAVE :: type_ocean    ! force/slab/couple
   !$OMP THREADPRIVATE(type_ocean)
@@ -30 +27 @@
   !$OMP THREADPRIVATE(t_coupl)
 
+  ! FOR INLANDSIS:
+  !===============
+
+   INTEGER, SAVE          :: landice_opt       ! 1 for coupling with SISVAT, 2 for coupling with INLANDSIS
+  !$OMP THREADPRIVATE(landice_opt)
+
+   INTEGER, SAVE          :: iflag_tsurf_inlandsis ! 0 SISVAT method, 1 LMDZ method
+  !$OMP THREADPRIVATE(iflag_tsurf_inlandsis)
+
+   INTEGER, SAVE          :: iflag_albzenith ! dependency of albedo to zenith angle
+  !$OMP THREADPRIVATE(iflag_albzenith)  
+
+   INTEGER, SAVE          :: n_dtis           ! number of subtimesteps for INLANDSIS
+  !$OMP THREADPRIVATE(n_dtis)
+
+  ! with or without snow module/ blowing snow, ascii outfile
+   LOGICAL, SAVE           :: SnoMod,BloMod,ok_outfor 
+  !$OMP THREADPRIVATE(SnoMod,BloMod,ok_outfor)    
+
 END MODULE surface_data