/[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 36 by guez, Thu Dec 2 17:11:04 2010 UTC revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC
# Line 11  SUBROUTINE fisrtilp(dtime,paprs,pplay,t, Line 11  SUBROUTINE fisrtilp(dtime,paprs,pplay,t,
11    USE dimens_m    USE dimens_m
12    USE dimphy    USE dimphy
13    USE tracstoke    USE tracstoke
14    USE yomcst    USE suphec_m
15    USE yoethf    USE yoethf_m
16    USE fcttre    USE fcttre
17    USE comfisrtilp    USE comfisrtilp
18    use numer_rec, only: nr_erf    use numer_rec_95, only: nr_erf
19    
20    IMPLICIT NONE    IMPLICIT NONE
21    
# 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.36  
changed lines
  Added in v.61
  ViewVC Help
Powered by ViewVC 1.1.21