Changeset 3805 for LMDZ6/trunk/libf/phylmd

Timestamp:

Jan 19, 2021, 9:51:28 PM (4 years ago)

Author:

asima

Message:

Replacement of LOGICAL "ok_snow" flag by INTEGER "landice_opt" (as in phys_output_write_mod.F90),
required by the introduction of INLANDSIS interface between LMDZ and the snow in SISVAT (rev r3792 by E. Vignon).

File:

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

LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

@@ -383 +383 @@
     USE infotrac, ONLY: nqtot, nqo, nbtr, type_trac
     USE geometry_mod, ONLY: cell_area
-    USE surface_data, ONLY: type_ocean, version_ocean, ok_veget, ok_snow
+    USE surface_data, ONLY: type_ocean, version_ocean, ok_veget, landice_opt
 !    USE aero_mod, ONLY: naero_spc
     USE aero_mod, ONLY: naero_tot, id_STRAT_phy
@@ -677 +677 @@
        CALL histwrite_phy(o_tauy, zx_tmp_fi2d)
 
-       IF (ok_snow) THEN
+       IF (landice_opt .GE. 1 ) THEN
           CALL histwrite_phy(o_snowsrf, snow_o)
           CALL histwrite_phy(o_qsnow, qsnow)