/[lmdze]/trunk/phylmd/ajsec.f
ViewVC logotype

Diff of /trunk/phylmd/ajsec.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 38 by guez, Thu Jan 6 17:52:19 2011 UTC
# Line 4  Line 4 
4        SUBROUTINE ajsec(paprs, pplay, t,q, d_t,d_q)        SUBROUTINE ajsec(paprs, pplay, t,q, d_t,d_q)
5        use dimens_m        use dimens_m
6        use dimphy        use dimphy
7        use YOMCST        use SUPHEC_M
8        IMPLICIT none        IMPLICIT none
9  c======================================================================  c======================================================================
10  c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818  c Auteur(s): Z.X. Li (LMD/CNRS) date: 19930818
# Line 16  c Line 16  c
16  c d_t-----output-R-Incrementation de la temperature  c d_t-----output-R-Incrementation de la temperature
17  c======================================================================  c======================================================================
18        REAL, intent(in):: paprs(klon,klev+1)        REAL, intent(in):: paprs(klon,klev+1)
19        real pplay(klon,klev)        real, intent(in):: pplay(klon,klev)
20        REAL t(klon,klev), q(klon,klev)        REAL t(klon,klev), q(klon,klev)
21        REAL d_t(klon,klev), d_q(klon,klev)        REAL d_t(klon,klev), d_q(klon,klev)
22  c  c
Legend:
Removed from v.3  
changed lines
  Added in v.38
  ViewVC Help
Powered by ViewVC 1.1.21