Changeset 1724 for LMDZ5/trunk/libf/phylmd/physiq.F

Timestamp:

Feb 7, 2013, 3:56:38 PM (11 years ago)

Author:

musat

Message:

Ajout coefficient beta (=Evap/Evap? potentielle) fonction de la latitude
et de la saison (voir these AbdulKhadre? Traore).

Frederic Hourdin
IM

File:

• LMDZ5/trunk/libf/phylmd/physiq.F (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F

@@ -285 +285 @@
       REAL flwp_s(klon), fiwp_s(klon)
       REAL flwc_s(klon,klev), fiwc_s(klon,klev)
+
+      REAL evap_pot(klon,nbsrf)
 
 cIM ISCCP simulator v3.4
@@ -1998 +2000 @@
 c
 
+c Calcul de l'humidite de saturation au niveau du sol
+
+
+
       if (iflag_pbl/=0) then
 
@@ -2036 +2042 @@
         call writefield_phy('q_seri',q_seri,llm)
       endif
+
+         CALL evappot(klon,nbsrf,ftsol,pplay(:,1),cdragh,
+     e      t_seri(:,1),q_seri(:,1),u_seri(:,1),v_seri(:,1),evap_pot)