Changeset 3982

Timestamp:

Dec 20, 2016, 7:20:12 PM (8 years ago)

Author:

ymipsl

Message:

LMDZ : uninitialized variables

Location:

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd

Files:

• phys_local_var_mod.F90 (modified) (1 diff)
• phys_state_var_mod.F90 (modified) (1 diff)

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

@@ -540 +540 @@
       ALLOCATE(sens(klon), flwp(klon), fiwp(klon))
       ALLOCATE(ale_bl_stat(klon), alp_bl_conv(klon), alp_bl_det(klon))
+      ale_bl_stat(:)=0 ; alp_bl_conv(:)=0 ;  alp_bl_det(:)=0
       ALLOCATE(alp_bl_fluct_m(klon), alp_bl_fluct_tke(klon))
+      alp_bl_fluct_m(:)=0 ; alp_bl_fluct_tke(:)= 0.
       ALLOCATE(alp_bl_stat(klon), n2(klon), s2(klon))
+      alp_bl_stat(:)=0
       ALLOCATE(proba_notrig(klon), random_notrig(klon))
 

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

@@ -586 +586 @@
       ALLOCATE(ale_bl_trig(klon))
 !!! fin nrlmd le 10/04/2012
-      if (ok_gwd_rando) allocate(du_gwd_rando(klon, klev), &
-           dv_gwd_rando(klon, klev))
-
+      IF  (ok_gwd_rando) THEN
+        allocate(du_gwd_rando(klon, klev),dv_gwd_rando(klon, klev))
+        du_gwd_rando(:,:)=0.
+        dv_gwd_rando(:,:)=0.
+      ENDIF
+      
 END SUBROUTINE phys_state_var_init