Changeset 4033 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/physiq_mod.F90

Timestamp:

Aug 2, 2017, 12:27:50 PM (8 years ago)

Author:

millour

Message:

Add some missing initializations for the aquaplanet case.
EM

File:

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

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

@@ -2101 +2101 @@
        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