Changeset 3082 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Nov 21, 2017, 5:18:23 PM (6 years ago)

Author:

oboucher

Message:

Adding new diagnostics for clean (no aerosol) clear sky SW radiative fluxes

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1623 +1623 @@
            !!!  xios_field_is_active("toplwai").OR.xios_field_is_active("sollwai") !))) & 
            swaero_diag=.TRUE. 
+
+       !--setting up swaerofree_diag to TRUE in XIOS case 
+       IF (xios_field_is_active("SWdnSFCcleanclr").OR.xios_field_is_active("SWupSFCcleanclr").OR. &
+           xios_field_is_active("SWupTOAcleanclr").OR.xios_field_is_active("rsucsaf").OR. &
+           xios_field_is_active("rsdcsaf")) & 
+           swaerofree_diag=.TRUE. 
 
        !--setting up dryaod_diag to TRUE in XIOS case 
@@ -3766 +3772 @@
                topsw0,toplw0,solsw0,sollw0, &
                lwdn0, lwdn, lwup0, lwup,  &
-               swdn0, swdn, swup0, swup, &
+               swdnc0, swdn0, swdn, swupc0, swup0, swup, &
                topswad_aero, solswad_aero, &
                topswai_aero, solswai_aero, &
@@ -3797 +3803 @@
           !--this is necessary to get the right swaero at first step
           !--but only in the case of no XIOS as XIOS is covered elsewhere 
+          IF (debut) swaerofree_diag = .FALSE.
           IF (debut) swaero_diag = .FALSE.
           IF (debut) dryaod_diag = .FALSE.
@@ -3849 +3856 @@
                      topsw0p,toplw0p,solsw0p,sollw0p, &
                      lwdn0p, lwdnp, lwup0p, lwupp,  &
-                     swdn0p, swdnp, swup0p, swupp, &
+                     swdnc0p, swdn0p, swdnp, swupc0p, swup0p, swupp, &
                      topswad_aerop, solswad_aerop, &
                      topswai_aerop, solswai_aerop, &