Changeset 1638 for LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Jul 23, 2012, 1:11:05 PM (12 years ago)

Author:

idelkadi

Message:

Introduction du declenchement stochastique de la convection

File:

• LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -346 +346 @@
 !$OMP THREADPRIVATE(ccm)
 
+!!! nrlmd le 10/04/2012
+      REAL,SAVE,ALLOCATABLE :: ale_bl_trig(:)
+!$OMP THREADPRIVATE(ale_bl_trig)
+!!! fin nrlmd le 10/04/2012
+
 CONTAINS
 
@@ -496 +501 @@
       ALLOCATE(tau_aero(klon,klev,naero_grp,nbands),piz_aero(klon,klev,naero_grp,nbands),cg_aero(klon,klev,naero_grp,nbands))
       ALLOCATE(ccm(klon,klev,nbands))
+
+!!! nrlmd le 10/04/2012
+      ALLOCATE(ale_bl_trig(klon))
+!!! fin nrlmd le 10/04/2012
 
 END SUBROUTINE phys_state_var_init
@@ -603 +612 @@
       deallocate(ccm)
        
+!!! nrlmd le 10/04/2012
+      deallocate(ale_bl_trig)
+!!! fin nrlmd le 10/04/2012
+
 END SUBROUTINE phys_state_var_end