Changeset 3083 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Nov 21, 2017, 5:37:36 PM (7 years ago)
Author:
oboucher
Message:

Nobody is perfect... correcting previous commit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/rrtm/recmwf_aero.F90

    r3082 r3083  
    760760  ENDIF
    761761
    762 ! copy clear-sky clean (no aerosol) case
    763   PFSCCUP(:,:) =   ZFSUP0_AERO(:,:,5)
    764   PFSCCDN(:,:) =   ZFSDN0_AERO(:,:,5)
    765 
    766762! The following allows to compute the forcing diagostics without
    767763! letting the aerosol forcing act on the meteorology
     
    780776    PFLUC(:,2,:) =  LWDN0_AERO(:,:,5)
    781777
     778ENDIF
     779
     780IF (aerosolfree_diag) THEN
     781! copy clear-sky clean (no aerosol) case
     782  PFSCCUP(:,:) =   ZFSUP0_AERO(:,:,5)
     783  PFSCCDN(:,:) =   ZFSDN0_AERO(:,:,5)
    782784ENDIF
    783785
Note: See TracChangeset for help on using the changeset viewer.