Ignore:
Timestamp:
Sep 24, 2020, 5:21:21 PM (4 years ago)
Author:
asima
Message:

Update variable name : absvisaer --> abs550aer

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/Dust/splaeropt_6bands_rrtm.F90

    r2753 r3770  
    99  USE aero_mod
    1010  USE infotrac_phy
    11   USE phys_local_var_mod, ONLY: absvisaer
     11  USE phys_local_var_mod, ONLY: abs550aer
    1212
    1313  ! Olivier Boucher Jan 2017
     
    260260!--waveband 2 and all aerosol (third index = 2)
    261261  inu=2
    262   absvisaer(:)=SUM((1-piz_allaer(:,:,2,inu))*tau_allaer(:,:,2,inu),dim=2)
     262  abs550aer(:)=SUM((1-piz_allaer(:,:,2,inu))*tau_allaer(:,:,2,inu),dim=2)
    263263
    264264END SUBROUTINE SPLAEROPT_6BANDS_RRTM
Note: See TracChangeset for help on using the changeset viewer.