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

Timestamp:

Dec 3, 2017, 10:03:26 PM (7 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/iophy.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/iophy.F90

@@ -665 +665 @@
 
     ! Set swaerofree_diag=true if at least one of the concerned variables are defined 
-    IF (var%name=='SWupTOAcleanclr' .OR. var%name=='SWupSFCcleanclr' .OR. var%name=='SWdnSFCcleanclr' ) THEN
+    IF (var%name=='SWupTOAcleanclr' .OR. var%name=='SWupSFCcleanclr' .OR. var%name=='SWdnSFCcleanclr' .OR. & 
+        var%name=='LWupTOAcleanclr' .OR. var%name=='LWupSFCcleanclr' .OR. var%name=='LWdnSFCcleanclr' ) THEN
        IF  ( var%flag(iff)<=lev_files(iff) ) swaerofree_diag=.TRUE.
     ENDIF