Changeset 2587


Ignore:
Timestamp:
Jul 12, 2016, 9:59:35 PM (8 years ago)
Author:
oboucher
Message:

Correcting absvisaer diagnostic
Correspond to all aerosols

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/aeropt_2bands.F90

    r2324 r2587  
    11281128  ENDDO
    11291129
    1130   inu=1
     1130  inu=1         ! visible wavaband
     1131  mrfspecies=2  ! total aerosol AER     
    11311132  DO i=1, KLON
    1132      absvisaer(i)=SUM((1-piz_allaer(i,:,:,inu))*tau_allaer(i,:,:,inu))
     1133     absvisaer(i)=SUM((1-piz_allaer(i,:,mrfspecies,inu))*tau_allaer(i,:,mrfspecies,inu))
    11331134  ENDDO
     1135  STOP
    11341136
    11351137  DEALLOCATE(aerosol_name)
Note: See TracChangeset for help on using the changeset viewer.