Changeset 1724 for LMDZ5/trunk/libf/phylmd/surf_land_bucket_mod.F90

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/surf_land_bucket_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/surf_land_bucket_mod.F90

@@ -24 +24 @@
     USE cpl_mod
     USE dimphy
+    USE comgeomphy
     USE mod_grid_phy_lmdz
     USE mod_phys_lmdz_para
@@ -97 +98 @@
 ! calculate constants
     CALL calbeta(dtime, is_ter, knon, snow, qsol, beta, capsol, dif_grnd)
+    if (type_veget=='betaclim') then
+       CALL calbeta_clim(knon,jour,rlatd(knindex(:)),beta)
+    endif
+
        
 ! calculate temperature, heat capacity and conduction flux in soil