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

Timestamp:

May 30, 2016, 10:46:40 PM (8 years ago)

Author:

oboucher

Message:

Reviewing the way swaero_diag is computed to correct an old bug that
makes topswad and co diagnostics wrong for the first timestep...
And introducing swaero_diag in rrtm/recmwf_aero so that double and
triple radiation calls when diagnostics are not needed to save time

File:

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

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -3513 +3513 @@
                ZSWFT0_i, ZFSDN0, ZFSUP0)
 
+          !--OB 30/05/2016
+          !--here we return swaero_diag to FALSE
+          !--and histdef will switch it back to TRUE if necessary
+          !--this is necessary to get the right swaero at first step
+          IF (debut) swaero_diag = .FALSE.
           !
           !IM 2eme calcul radiatif pour le cas perturbe ou au moins un