Changeset 2979 for LMDZ5/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Aug 3, 2017, 10:25:17 AM (7 years ago)

Author:

Ehouarn Millour

Message:

Missing initializations that caused problems when running in aquaplanet mode.
EM

File:

• LMDZ5/trunk/libf/phylmd/physiq_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -2082 +2082 @@
        CALL zenang_an(iflag_cycle_diurne.GE.1,jH_cur, &
             latitude_deg,longitude_deg,rmu0,fract)
-       JrNt = 1.0
+       swradcorr(:) = 1.0
+       JrNt(:) = 1.0
+       zrmu0(:) = rmu0(:)
     ELSE
        ! recode par Olivier Boucher en sept 2015