/[lmdze]/trunk/libf/phylmd/fisrtilp.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/fisrtilp.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 51 by guez, Thu Jan 6 17:52:19 2011 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 24  SUBROUTINE fisrtilp(dtime,paprs,pplay,t, Line 24  SUBROUTINE fisrtilp(dtime,paprs,pplay,t,
24    REAL, INTENT (IN) :: & ! intervalle du temps (s)                    REAL, INTENT (IN) :: & ! intervalle du temps (s)                
25         dtime         dtime
26    REAL, INTENT (IN) :: paprs(klon,klev+1) ! pression a inter-couche      REAL, INTENT (IN) :: paprs(klon,klev+1) ! pression a inter-couche  
27    REAL, INTENT (IN) :: pplay(klon,klev) ! pression au milieu de couche    REAL, INTENT (IN):: pplay(klon,klev) ! pression au milieu de couche
28    REAL t(klon,klev) ! temperature (K)                                  REAL, INTENT (IN):: t(klon,klev) ! temperature (K)
29    REAL q(klon,klev) ! humidite specifique (kg/kg)                      REAL q(klon,klev) ! humidite specifique (kg/kg)                  
30    REAL d_t(klon,klev) ! incrementation de la temperature (K)            REAL d_t(klon,klev) ! incrementation de la temperature (K)        
31    REAL d_q(klon,klev) ! incrementation de la vapeur d'eau              REAL d_q(klon,klev) ! incrementation de la vapeur d'eau          
Legend:
Removed from v.51  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21