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

Timestamp:

Jul 12, 2016, 9:59:35 PM (8 years ago)

Author:

oboucher

Message:

Correcting absvisaer diagnostic
Correspond to all aerosols

File:

• LMDZ5/trunk/libf/phylmd/aeropt_2bands.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/aeropt_2bands.F90

@@ -1128 +1128 @@
   ENDDO
 
-  inu=1
+  inu=1         ! visible wavaband
+  mrfspecies=2  ! total aerosol AER      
   DO i=1, KLON
-     absvisaer(i)=SUM((1-piz_allaer(i,:,:,inu))*tau_allaer(i,:,:,inu))
+     absvisaer(i)=SUM((1-piz_allaer(i,:,mrfspecies,inu))*tau_allaer(i,:,mrfspecies,inu))
   ENDDO
+  STOP
 
   DEALLOCATE(aerosol_name)