Changeset 3917 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Feb 24, 2016, 6:26:00 PM (9 years ago)

Author:

ymipsl

Message:

Bug fix for acquaplanet configuration : state var must allocated and deallocated at the end of iniaqua

YM

File:

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

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_state_var_mod.F90

@@ -397 +397 @@
       !$OMP THREADPRIVATE(du_gwd_rando, dv_gwd_rando)
       ! tendencies on wind due to gravity waves
+
+      INTEGER,SAVE :: is_initialized=.FALSE.
+!$OMP THREADPRIVATE(is_initialized)    
       
 CONTAINS
@@ -419 +422 @@
 
 include "clesphys.h"
-      INTEGER,SAVE :: is_initialized=.FALSE.
-!$OMP THREADPRIVATE(is_initialized)    
 
       IF (is_initialized) RETURN
@@ -714 +715 @@
       deallocate(ale_bl_trig)
 !!! fin nrlmd le 10/04/2012
-
+      is_initialized=.FALSE.
 END SUBROUTINE phys_state_var_end