Changeset 1469 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Dec 21, 2010, 4:46:03 PM (14 years ago)
Author:
idelkadi
Message:

Correction de bug

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1418 r1469  
    756756    ENDIF
    757757
    758     used_tau(spsol)=.TRUE.
     758!Bug 21 12 10 AI
     759!    used_tau(spsol)=.TRUE.
     760    IF (soluble) then
     761      used_tau(spsol)=.TRUE.
     762       ELSE
     763      used_tau(naero_soluble+spinsol)=.TRUE.
     764    ENDIF
     765
    759766    DO la=1,las
    760767
Note: See TracChangeset for help on using the changeset viewer.