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

Timestamp:

Mar 14, 2008, 1:12:38 PM (16 years ago)

Author:

lmdzadmin

Message:

Ajout variables zmax0, f0 dans le startphy.nc FH
IM

File:

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

LMDZ4/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -29 +29 @@
       REAL, ALLOCATABLE, SAVE :: ratqs(:,:)
       REAL, ALLOCATABLE, SAVE :: pbl_tke(:,:,:) ! turb kinetic energy
+      REAL, ALLOCATABLE, SAVE :: zmax0(:), f0(:) ! 
 
 CONTAINS
@@ -56 +57 @@
       ALLOCATE( ratqs(klon,klev))
       ALLOCATE(pbl_tke(klon,klev+1,nbsrf))
+      ALLOCATE(zmax0(klon), f0(klon))
 
 END SUBROUTINE phys_state_var_init
@@ -72 +74 @@
       deallocate( rugoro, t_ancien, q_ancien, clwcon, rnebcon )
       deallocate( ratqs, pbl_tke )
+      deallocate( zmax0, f0 )
 
 END SUBROUTINE phys_state_var_end