Ignore:
Timestamp:
Dec 14, 2018, 12:14:44 PM (6 years ago)
Author:
oboucher
Message:

Correcting a bug for strat aerosol forcing diagnostics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/rrtm/readaerosolstrato2_rrtm.F90

    r3426 r3427  
    366366!--this is the VOLMIP case
    367367    DO band=1, NLW
     368!--stratospheric aerosols are not added to index 1
     369!--and we copy index 2 in index 1 because we want the same dust aerosol LW properties as above
     370      tau_aero_lw_rrtm(:,:,1,band)  = tau_aero_lw_rrtm(:,:,2,band)
     371!
    368372      WHERE (stratomask.GT.0.999999)
    369373!--stratospheric aerosols are only added to index 2
    370374        tau_aero_lw_rrtm(:,:,2,band)  = tau_aero_lw_rrtm(:,:,2,band) + taulw_aer_strat(:,:,band)
    371 !--stratospheric aerosols are not added to index 1
    372 !--and we copy index 2 in index 1 because we want the same dust aerosol LW properties as above
    373         tau_aero_lw_rrtm(:,:,1,band)  = tau_aero_lw_rrtm(:,:,2,band)
    374375      ENDWHERE
    375376    ENDDO
Note: See TracChangeset for help on using the changeset viewer.