Ignore:
Timestamp:
May 18, 2011, 4:09:43 PM (14 years ago)
Author:
slebonnois
Message:

SL: correction bug dans phytitan/cooling.F

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/libf/phytitan/radlwsw.F

    r104 r121  
    146146      print*,'On calcule le rayonnement LW'
    147147
    148       CALL cooling(klon,klev+1,zp,zt,zz,zcool,zlwnet,sollwdown)
     148      CALL cooling(klev+1,zp,zt,zz,zcool,zlwnet,sollwdown)
    149149
    150150c inversion de l'axe vertical
Note: See TracChangeset for help on using the changeset viewer.