Changeset 1742 for LMDZ5/trunk/libf/phylmd/phys_state_var_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/phys_state_var_mod.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -52 +52 @@
       REAL, ALLOCATABLE, SAVE :: u_ancien(:,:), v_ancien(:,:)
 !$OMP THREADPRIVATE(u_ancien, v_ancien)
+!!! RomP >>>
+      REAL, ALLOCATABLE, SAVE :: tr_ancien(:,:,:)
+!$OMP THREADPRIVATE(tr_ancien)
+!!! RomP <<<
       LOGICAL, SAVE :: ancien_ok
 !$OMP THREADPRIVATE(ancien_ok)
@@ -358 +362 @@
 USE control_mod
 use aero_mod
+use infotrac, ONLY : nbtr
 IMPLICIT NONE
 
@@ -384 +389 @@
       ALLOCATE(t_ancien(klon,klev), q_ancien(klon,klev))
       ALLOCATE(u_ancien(klon,klev), v_ancien(klon,klev))
+!!! Rom P >>>
+      ALLOCATE(tr_ancien(klon,klev,nbtr))
+!!! Rom P <<<
       ALLOCATE(clwcon(klon,klev),rnebcon(klon,klev))
       ALLOCATE(ratqs(klon,klev))
@@ -521 +529 @@
       deallocate(rugoro, t_ancien, q_ancien, clwcon, rnebcon)
       deallocate(        u_ancien, v_ancien                 )
+      deallocate(        tr_ancien)                           !RomP
       deallocate(ratqs, pbl_tke)
       deallocate(zmax0, f0)