Changeset 1865 for LMDZ5/trunk/libf/phylmd/physiq.F90

Timestamp:

Sep 13, 2013, 10:26:46 AM (11 years ago)

Author:

Laurent Fairhead

Message:

Inclusion de la bibliothèque SISVAT/MAR à LMDZ pour le traitement des surfaces
"land ice"

13. Menegoz

---

Integration of the SISVAT/MAR library to LMDZ to model the land ice surfaces

13. Menegoz

File:

• LMDZ5/trunk/libf/phylmd/physiq.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F90

@@ -25 +25 @@
   USE pbl_surface_mod, ONLY : pbl_surface
   USE change_srf_frac_mod
-  USE surface_data,     ONLY : type_ocean, ok_veget
+  USE surface_data,     ONLY : type_ocean, ok_veget, ok_snow
   USE phys_local_var_mod ! Variables internes non sauvegardees de la physique
   USE phys_state_var_mod ! Variables sauvegardees de la physique
@@ -773 +773 @@
 
   !
-  REAL zxsnow(klon)
+!  REAL zxsnow(klon)
   REAL zxsnow_dummy(klon)
   !
@@ -1997 +1997 @@
           debut,     lafin, &
           rlon,      rlat,      rugoro,  rmu0,      &
+          zsig,      sollwdown, pphi,    cldt,      &
           rain_fall, snow_fall, solsw,   sollw,     &
           t_seri,    q_seri,    u_seri,  v_seri,    &
@@ -2003 +2004 @@
           sollwdown, cdragh,    cdragm,  u1,    v1, &
           albsol1,   albsol2,   sens,    evap,   &
+          albsol3_lic,runoff,   snowhgt,   qsnow, to_ice, sissnow, &
           zxtsol,    zxfluxlat, zt2m,    qsat2m,  &
           d_t_vdf,   d_q_vdf,   d_u_vdf, d_v_vdf, d_t_diss, &