Changeset 4526 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90

Timestamp:

May 8, 2023, 2:35:08 PM (14 months ago)

Author:

evignon

Message:

fix bug from merge of blowing snow branch

File:

• LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90

@@ -47 +47 @@
        precip_rain, precip_snow, lwdown, swnet, swdown, &
        ps, q2m, t2m, &
-       evap, fluxsens, fluxlat, fluxbs, &              
+       evap, fluxsens, fluxlat, &              
        tsol_rad, tsurf_new, alb1_new, alb2_new, &
        emis_new, z0m_new, z0h_new, qsurf, &
@@ -140 +140 @@
 ! Parametres de sortie
 !****************************************************************************************
-    REAL, DIMENSION(klon), INTENT(OUT)        :: evap, fluxsens, fluxlat, fluxbs, qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)        :: evap, fluxsens, fluxlat, qsurf
     REAL, DIMENSION(klon), INTENT(OUT)        :: tsol_rad, tsurf_new
     REAL, DIMENSION(klon), INTENT(OUT)        :: alb1_new, alb2_new
@@ -633 +633 @@
     fluxlat(1:knon)  = -1. * fluxlat(1:knon)
    
-! temporary until blowing snow flux is calculated in orchidee
-    fluxbs(:)=0.
-
 !  evap     = -1. * evap