Changeset 2594 for LMDZ5/branches/testing/libf/phylmd/aeropt_2bands.F90
- Timestamp:
- Jul 18, 2016, 9:41:10 PM (8 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 2547-2567,2569,2571-2574,2576-2589
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/phylmd/aeropt_2bands.F90
r2408 r2594 1128 1128 ENDDO 1129 1129 1130 inu=1 1130 inu=1 ! visible wavaband 1131 mrfspecies=2 ! total aerosol AER 1131 1132 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)) 1133 1134 ENDDO 1135 STOP 1134 1136 1135 1137 DEALLOCATE(aerosol_name)
Note: See TracChangeset
for help on using the changeset viewer.