Changeset 3355 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/phys_local_var_mod.F90

Timestamp:

Jun 29, 2018, 11:12:44 AM (6 years ago)

Author:

Laurent Fairhead

Message:

Commiting variables initialisation as found by Yann
LF

File:

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

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

@@ -573 +573 @@
       ALLOCATE(dv_gwd_rando(klon,klev),dv_gwd_front(klon,klev))
       ALLOCATE(east_gwstress(klon,klev),west_gwstress(klon,klev))
+      east_gwstress(:,:)=0 !ym missing init
+      west_gwstress(:,:)=0 !ym missing init
       ALLOCATE(d_t_hin(klon,klev))
       ALLOCATE(d_q_ch4(klon,klev))
@@ -688 +690 @@
 !>jyg
       ALLOCATE(dtvdf_x(klon,klev), dtvdf_w(klon,klev))
+      dtvdf_x = 0 ; dtvdf_w=0 ;   !ym missing init
       ALLOCATE(dqvdf_x(klon,klev), dqvdf_w(klon,klev))
+      dqvdf_x = 0 ; dqvdf_w=0 ;   !ym missing init
       ALLOCATE(pbl_tke_input(klon,klev+1,nbsrf))
       ALLOCATE(t_therm(klon,klev), q_therm(klon,klev),u_therm(klon,klev), v_therm(klon,klev))