Changeset 3900 for LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_zsn.F

Timestamp:

May 17, 2021, 3:35:58 PM (3 years ago)

Author:

evignon

Message:

Commission de la nouvelle interface LMDZ-SISVAT
la prochaine commission consistera a supprimer l'ancien repertoire sisvat
et a faire un peu de nettoyage.

File:

• LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_zsn.F (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/inlandsis/sisvat_zsn.F

@@ -52 +52 @@
       use VARxSV
       use VARySV
+      use surface_data, only: ok_zsn_ii
 
       IMPLICIT NONE
@@ -716 +717 @@
         END DO
 
+
+C +--Search new Ice/Snow Interface (option II in MAR)
+C +  ===============================================
+
+        IF (ok_zsn_ii) THEN 
+        
+        DO ikl=1,knonv
+          iiceSV(ikl) =  0
+        END DO
+ 
+        DO ikl=1,knonv
+        DO   isn=1,isnoSV(ikl)
+          OK_ICE      = max(zero,sign(unun,ro__SV(ikl,isn)-ro_ice+20.))
+     .                * max(zero,sign(unun,dzsnSV(ikl,isn)-epsi))
+          iiceSV(ikl) = (1.-OK_ICE)       *iiceSV(ikl)
+     .                +     OK_ICE        *isn
+        END DO
+        END DO
+
+        END IF
  
       return