Changeset 3770 for LMDZ6/trunk/libf/phylmd

Timestamp:

Sep 24, 2020, 5:21:21 PM (4 years ago)

Author:

asima

Message:

Update variable name : absvisaer --> abs550aer

File:

• LMDZ6/trunk/libf/phylmd/Dust/splaeropt_6bands_rrtm.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/Dust/splaeropt_6bands_rrtm.F90

@@ -9 +9 @@
   USE aero_mod
   USE infotrac_phy
-  USE phys_local_var_mod, ONLY: absvisaer
+  USE phys_local_var_mod, ONLY: abs550aer
 
   ! Olivier Boucher Jan 2017
@@ -260 +260 @@
 !--waveband 2 and all aerosol (third index = 2)
   inu=2
-  absvisaer(:)=SUM((1-piz_allaer(:,:,2,inu))*tau_allaer(:,:,2,inu),dim=2)
+  abs550aer(:)=SUM((1-piz_allaer(:,:,2,inu))*tau_allaer(:,:,2,inu),dim=2)
 
 END SUBROUTINE SPLAEROPT_6BANDS_RRTM