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

Timestamp:

May 3, 2023, 6:21:08 PM (13 months ago)

Author:

evignon

Message:

merge de la branche blowing snow vers la trunk
premiere tentative
Etienne

Location:

LMDZ6/trunk

Files:

• . (modified) (1 prop)
• 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, &              
+       evap, fluxsens, fluxlat, fluxbs, &              
        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, qsurf
+    REAL, DIMENSION(klon), INTENT(OUT)        :: evap, fluxsens, fluxlat, fluxbs, qsurf
     REAL, DIMENSION(klon), INTENT(OUT)        :: tsol_rad, tsurf_new
     REAL, DIMENSION(klon), INTENT(OUT)        :: alb1_new, alb2_new
@@ -632 +632 @@
     fluxsens(1:knon) = -1. * fluxsens(1:knon)
     fluxlat(1:knon)  = -1. * fluxlat(1:knon)
-    
+   
+! temporary until blowing snow flux is calculated in orchidee
+    fluxbs(:)=0.
+
 !  evap     = -1. * evap