/[lmdze]/trunk/Sources/phylmd/Thermcell/thermcell.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Thermcell/thermcell.f

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

trunk/libf/phylmd/Thermcell/thermcell.f90 revision 54 by guez, Tue Dec 6 15:07:04 2011 UTC trunk/phylmd/Thermcell/thermcell.f revision 91 by guez, Wed Mar 26 17:18:58 2014 UTC
# Line 20  contains Line 20  contains
20      ! 3. un entraînement      ! 3. un entraînement
21      ! 4. un détraînement      ! 4. un détraînement
22    
23      USE dimphy, ONLY : klev, klon, max      USE dimphy, ONLY : klev, klon
24      USE suphec_m, ONLY : rd, rg, rkappa      USE suphec_m, ONLY : rd, rg, rkappa
25    
26      ! arguments:      ! arguments:
# Line 30  contains Line 30  contains
30      real ptimestep, l_mix, r_aspect      real ptimestep, l_mix, r_aspect
31      REAL, intent(in):: pt(ngrid, nlay)      REAL, intent(in):: pt(ngrid, nlay)
32      real pdtadj(ngrid, nlay)      real pdtadj(ngrid, nlay)
33      REAL pu(ngrid, nlay), pduadj(ngrid, nlay)      REAL, intent(in):: pu(ngrid, nlay)
34      REAL pv(ngrid, nlay), pdvadj(ngrid, nlay)      real pduadj(ngrid, nlay)
35        REAL, intent(in):: pv(ngrid, nlay)
36        real pdvadj(ngrid, nlay)
37      REAL po(ngrid, nlay), pdoadj(ngrid, nlay)      REAL po(ngrid, nlay), pdoadj(ngrid, nlay)
38      REAL, intent(in):: pplay(ngrid, nlay)      REAL, intent(in):: pplay(ngrid, nlay)
39      real, intent(in):: pplev(ngrid, nlay+1)      real, intent(in):: pplev(ngrid, nlay+1)
Legend:
Removed from v.54  
changed lines
  Added in v.91
  ViewVC Help
Powered by ViewVC 1.1.21