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

Timestamp:

Apr 5, 2013, 1:49:35 PM (11 years ago)

Author:

idelkadi

Message:

1- Inclusion des developpements de la these de Romain Pilon sur le
lessivage des aerosols :

a/ par les pluies convectives (modifs cv30_routines et cv3_routines pour

sortir les champs nécessaires au calcul off-line ; modif cvltr)

b/ par les pluies stratiformes (modifs phytrac et introduction

lsc_scav).

2- Choix entre plusieurs schemas pour les pluies stratiformes, commande
par iflag_lscav.

3- Quelques corrections dans la convection "Nouvelle Physique" pour
assurer la conservation des traceurs (cv3p1_mixing et cva_driver) (travail
de Robin Locatelli).

File:

• LMDZ5/trunk/libf/phylmd/surf_land_bucket_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/surf_land_bucket_mod.F90

@@ -101 +101 @@
        CALL calbeta_clim(knon,jour,rlatd(knindex(:)),beta)
     endif
-
        
 ! calculate temperature, heat capacity and conduction flux in soil
@@ -112 +111 @@
     ELSE 
        cal(:) = RCPD * capsol(:)
+       IF (klon_glo .EQ. 1) THEN
+         cal(:) = 0.
+       ENDIF
     ENDIF