Changeset 2842 for LMDZ5/trunk/libf/phylmd/aeropt_2bands.F90

Timestamp:

Apr 1, 2017, 6:09:13 PM (7 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:

• LMDZ5/trunk/libf/phylmd/aeropt_2bands.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/aeropt_2bands.F90

@@ -10 +10 @@
   USE dimphy
   USE aero_mod
-  USE phys_local_var_mod, only: absvisaer
   USE pres2lev_mod
 
@@ -1127 +1126 @@
   ENDDO
 
-  inu=1         ! visible waveband
-  mrfspecies=2  ! total aerosol AER      
-  DO i=1, KLON
-     absvisaer(i)=SUM((1-piz_allaer(i,:,mrfspecies,inu))*tau_allaer(i,:,mrfspecies,inu))
-  ENDDO
-
   DEALLOCATE(aerosol_name)