Changeset 3413 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Nov 12, 2018, 1:52:29 PM (6 years ago)

Author:

Laurent Fairhead

Message:

Inclusion of Yann's latest (summer/fall 2018) modifications for
convergence of DYNAMICO/LMDZ physics
YM/LF

File:

• LMDZ6/branches/DYNAMICO-conv/libf/phylmd/phys_state_var_mod.F90 (modified) (2 diffs)

LMDZ6/branches/DYNAMICO-conv/libf/phylmd/phys_state_var_mod.F90

@@ -23 +23 @@
 !$OMP THREADPRIVATE(cvpas)
 !$OMP THREADPRIVATE(wkpas)
-      REAL, SAVE :: phys_tstep, solaire_etat0
+      REAL, SAVE :: phys_tstep=0, solaire_etat0
 !$OMP THREADPRIVATE(phys_tstep, solaire_etat0)
 
@@ -607 +607 @@
         du_gwd_rando(:,:)=0.
       ENDIF
-      if (.not. ok_hines .and. ok_gwd_rando) allocate(du_gwd_front(klon, klev))
-
+      IF (.not. ok_hines .and. ok_gwd_rando) THEN
+        ALLOCATE(du_gwd_front(klon, klev))
+        du_gwd_front(:,:) = 0 !ym missing init   
+      ENDIF
 END SUBROUTINE phys_state_var_init