Changeset 4414 for LMDZ6/trunk/libf/phylmd/surf_landice_mod.F90

Timestamp:

Feb 1, 2023, 6:33:30 PM (16 months ago)

Author:

evignon

Message:

nettoyage surf_landice_mod + ajout d'un only pour le use du module
phys_output_mod

File:

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

LMDZ6/trunk/libf/phylmd/surf_landice_mod.F90

@@ -30 +30 @@
     USE cpl_mod,          ONLY : cpl_send_landice_fields
     USE calcul_fluxs_mod
-    USE phys_output_var_mod
+    USE phys_output_var_mod, ONLY : snow_o,zfra_o
 !FC
     USE ioipsl_getin_p_mod, ONLY : getin_p
@@ -380 +380 @@
   
 !****************************************************************************************
-! Etienne: comment these lines because of duplication just below
-!       snow_o=0.
-!       zfra_o = 0.
-!       DO j = 1, knon
-!           i = knindex(j)
-!           snow_o(i) = snow(j) 
-!           zfra_o(i) = zfra(j)
-!       ENDDO
-!
-!****************************************************************************************
        snow_o=0.
        zfra_o = 0.