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

Timestamp:

Dec 3, 2017, 10:03:26 PM (6 years ago)

Author:

oboucher

Message:

Adding clear-sky clean (no aerosol) LW radiative fluxes at TOA and SFC as diagnostic

File:

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

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -1626 +1626 @@
        !--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")) & 
+           xios_field_is_active("SWupTOAcleanclr").OR.xios_field_is_active("rsucsaf").OR.   &
+           xios_field_is_active("rsdcsaf") .OR. xios_field_is_active("LWdnSFCcleanclr").OR. &
+           xios_field_is_active("LWupSFCcleanclr").OR. xios_field_is_active("LWupTOAcleanclr")) &
            swaerofree_diag=.TRUE. 
 
@@ -3772 +3773 @@
                sollwdown, &
                topsw0,toplw0,solsw0,sollw0, &
-               lwdn0, lwdn, lwup0, lwup,  &
+               lwdnc0, lwdn0, lwdn, lwupc0, lwup0, lwup,  &
                swdnc0, swdn0, swdn, swupc0, swup0, swup, &
                topswad_aero, solswad_aero, &
@@ -3856 +3857 @@
                      sollwdownp, &
                      topsw0p,toplw0p,solsw0p,sollw0p, &
-                     lwdn0p, lwdnp, lwup0p, lwupp,  &
+                     lwdnc0p, lwdn0p, lwdnp, lwupc0p, lwup0p, lwupp,  &
                      swdnc0p, swdn0p, swdnp, swupc0p, swup0p, swupp, &
                      topswad_aerop, solswad_aerop, &