Changeset 937 for LMDZ4/trunk/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Mar 31, 2008, 5:59:23 PM (17 years ago)

Author:

lmdzadmin

Message:

Ajout variables convection (ema_work1, ema_work2) dans startphy.nc
IM

File:

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

LMDZ4/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -30 +30 @@
       REAL, ALLOCATABLE, SAVE :: pbl_tke(:,:,:) ! turb kinetic energy
       REAL, ALLOCATABLE, SAVE :: zmax0(:), f0(:) ! 
-
+      REAL, ALLOCATABLE, SAVE :: ema_work1(:,:), ema_work2(:,:)
 CONTAINS
 
@@ -58 +58 @@
       ALLOCATE(pbl_tke(klon,klev+1,nbsrf))
       ALLOCATE(zmax0(klon), f0(klon))
+      ALLOCATE(ema_work1(klon,klev), ema_work2(klon,klev))
 
 END SUBROUTINE phys_state_var_init
@@ -75 +76 @@
       deallocate( ratqs, pbl_tke )
       deallocate( zmax0, f0 )
+      deallocate( ema_work1, ema_work2 )
 
 END SUBROUTINE phys_state_var_end