Changeset 4033

Timestamp:

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

Author:

millour

Message:

Add some missing initializations for the aquaplanet case.
EM

Location:

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd

Files:

• phyaqua_mod.F90 (modified) (1 diff)
• physiq_mod.F90 (modified) (1 diff)

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

@@ -326 +326 @@
     wake_deltaq = 0.
     wake_s = 0.
+    wake_dens = 0.
     wake_cstar = 0.
     wake_pe = 0.

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