Ignore:
Timestamp:
Apr 1, 2017, 6:09:13 PM (8 years ago)
Author:
oboucher
Message:

Removing absvisaer from calculations and outputs
Adding abs550aer in rrtm/aeropt_5wv_rrtm and outputs
Absorption aerosol optical depth at 550 nm

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/rrtm/aeropt_6bands_rrtm.F90

    r2810 r2842  
    1010  USE dimphy
    1111  USE aero_mod
    12   USE phys_local_var_mod, only: absvisaer
    1312  USE YOMCST, ONLY: RG
    1413
    … …  
    835834    ENDDO
    836835   
    837 !--waveband 2 and all aerosol (third index = 2)
    838   inu=2
    839   DO i=1, klon
    840      absvisaer(i)=SUM((1-piz_allaer(i,:,2,inu))*tau_allaer(i,:,2,inu))
    841   ENDDO
    842 
    843836  DEALLOCATE(aerosol_name)
    844837
Note: See TracChangeset for help on using the changeset viewer.