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

Diff of /trunk/phylmd/fisrtilp.f

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

revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 27  c======================================= Line 27  c=======================================
27  c  c
28  c Arguments:  c Arguments:
29  c  c
30        REAL dtime ! intervalle du temps (s)        REAL, intent(in):: dtime ! intervalle du temps (s)
31        REAL, intent(in):: paprs(klon,klev+1) ! pression a inter-couche        REAL, intent(in):: paprs(klon,klev+1) ! pression a inter-couche
32        REAL, intent(in):: pplay(klon,klev) ! pression au milieu de couche        REAL, intent(in):: pplay(klon,klev) ! pression au milieu de couche
33        REAL t(klon,klev) ! temperature (K)        REAL t(klon,klev) ! temperature (K)
Legend:
Removed from v.10  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21