Ignore:
Timestamp:
Apr 13, 2010, 5:12:56 PM (14 years ago)
Author:
Laurent Fairhead
Message:

Additions to aerosol outputs for CMIP5 exercise
(Needed because of chageset r1346 LF)

Additions aux sorties aérosols pour l'exercice CMIP5
(Nécessaires suite au changeset r1346 LF)

Michael, Anne

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/aeropt_2bands.F90

    r1279 r1347  
    1010  USE dimphy
    1111  USE aero_mod
     12  USE phys_local_var_mod, only: absvisaer
    1213
    1314  !    Yves Balkanski le 12 avril 2006
    … …  
    11191120    ENDDO
    11201121  ENDDO
     1122   
     1123
     1124  inu=1
     1125  DO i=1, KLON
     1126     absvisaer(i)=SUM((1-piz_allaer(i,:,:,inu))*tau_allaer(i,:,:,inu))
     1127  END DO       
    11211128
    11221129  DEALLOCATE(aerosol_name)
Note: See TracChangeset for help on using the changeset viewer.