Changeset 3923 for dynamico_lmdz/aquaplanet

Timestamp:

Mar 30, 2016, 1:51:44 PM (9 years ago)

Author:

ymipsl

Message:

Fix some uninitialized array.

YM

Location:

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd

Files:

• create_etat0_unstruct.f90 (modified) (5 diffs)
• phys_output_write_mod.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/create_etat0_unstruct.f90

@@ -22 +22 @@
     REAL,    DIMENSION(klon)                 :: tsol
     REAL,    DIMENSION(klon)                 :: sn
-    REAL,    DIMENSION(klon)                 :: rads
     REAL,    DIMENSION(klon)                 :: rugmer
     REAL,    DIMENSION(klon)                 :: run_off_lic_0
@@ -57 +56 @@
     CALL scatter_omp(zthe_mpi,zthe)
 
-    rads(:)   = 0.0
+    radsol(:)   = 0.0
     rugmer(:) = 0.001
     sn(:)     = 0
@@ -66 +65 @@
     WHERE(1.-zmasq(:)<EPSFRA) zmasq(:)=1.
 
+    pctsrf(:,:) = 0
     pctsrf(:,is_lic)=lic
     WHERE(pctsrf(:,is_lic)<EPSFRA) pctsrf(:,is_lic)=0. 
@@ -135 +135 @@
     solsw = 165.;   sollw = -53.
     t_ancien = 273.15
+    u_ancien=0
+    v_ancien=0
     q_ancien = 0.
     agesno = 0.
@@ -170 +172 @@
     entr_therm = 0.
     detr_therm = 0.
-
+    ale_bl = 0.
+    ale_bl_trig =0. 
+    alp_bl =0.
     CALL fonte_neige_init(run_off_lic_0)
     CALL pbl_surface_init( fder, snsrf, qsolsrf, tsoil )

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

@@ -967 +967 @@
        CALL histwrite_phy(o_rnebjn, zx_tmp_fi3d)
        CALL histwrite_phy(o_rhum, zx_rh)
-       CALL histwrite_phy(o_ozone, &
-            wo(:, :, 1) * dobson_u * 1e3 / zmasse / rmo3 * rmd)
-
+       IF (vars_defined) zx_tmp_fi3d(:,:) = wo(:, :, 1) * dobson_u * 1e3 / zmasse / rmo3 * rmd
+       CALL histwrite_phy(o_ozone, zx_tmp_fi3d)
+       
        IF (read_climoz == 2) THEN
-          CALL histwrite_phy(o_ozone_light, &
-               wo(:, :, 2) * dobson_u * 1e3 / zmasse / rmo3 * rmd)
+          IF (vars_defined) zx_tmp_fi3d(:,:) = wo(:, :, 2) * dobson_u * 1e3 / zmasse / rmo3 * rmd
+          CALL histwrite_phy(o_ozone_light, zx_tmp_fi3d)
        ENDIF