Changeset 121 for trunk


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

SL: correction bug dans phytitan/cooling.F

Location:
trunk/libf/phytitan
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/libf/phytitan/cooling.F

    r104 r121  
    1       SUBROUTINE COOLING(ngrid,NL,PRESS,TEMP,Z,Q0,lwnet,pfluxi)
     1      SUBROUTINE COOLING(NL,PRESS,TEMP,Z,Q0,lwnet,pfluxi)
    22
    33c=======================================================================
    … …  
    6666c   ----------
    6767
    68       INTEGER NL,ngrid
     68      INTEGER NL
    6969      REAL PRESS(ngrid,nl),TEMP(ngrid,nl)
    7070      REAL Z(ngrid,nl),Q0(ngrid,nl-1)

  • 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.