Changeset 4528 for LMDZ6/trunk/libf/phylmdiso/surf_landice_mod.F90

Timestamp:

May 9, 2023, 5:13:31 PM (18 months ago)

Author:

evignon

Message:

fix issue in phylmdiso from commit 4526 in phylmd

File:

• LMDZ6/trunk/libf/phylmdiso/surf_landice_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/surf_landice_mod.F90

@@ -490 +490 @@
 !****************************************************************************************
     IF (ok_bs) THEN
-      precip_totsnow=precip_snow+precip_bs
-      evap_totsnow=evap-fluxbs ! flux bs is positive towards the surface (snow erosion)
+      precip_totsnow(:)=precip_snow(:)+precip_bs(:)
+      evap_totsnow(:)=evap(:)-fluxbs(:) ! flux bs is positive towards the surface (snow erosion)
     ELSE
-      precip_totsnow=precip_snow
-      evap_totsnow=evap
+      precip_totsnow(:)=precip_snow(:)
+      evap_totsnow(:)=evap(:)
     ENDIF