/[lmdze]/trunk/libf/phylmd/Thermcell/thermcell.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/Thermcell/thermcell.f90

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

revision 51 by guez, Fri Jul 1 15:00:48 2011 UTC revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC
# Line 27  SUBROUTINE thermcell(ngrid, nlay, ptimes Line 27  SUBROUTINE thermcell(ngrid, nlay, ptimes
27    
28    INTEGER ngrid, nlay, w2di, tho    INTEGER ngrid, nlay, w2di, tho
29    real ptimestep, l_mix, r_aspect    real ptimestep, l_mix, r_aspect
30    REAL pt(ngrid, nlay), pdtadj(ngrid, nlay)    REAL, intent(in):: pt(ngrid, nlay)
31      real pdtadj(ngrid, nlay)
32    REAL pu(ngrid, nlay), pduadj(ngrid, nlay)    REAL pu(ngrid, nlay), pduadj(ngrid, nlay)
33    REAL pv(ngrid, nlay), pdvadj(ngrid, nlay)    REAL pv(ngrid, nlay), pdvadj(ngrid, nlay)
34    REAL po(ngrid, nlay), pdoadj(ngrid, nlay)    REAL po(ngrid, nlay), pdoadj(ngrid, nlay)
Legend:
Removed from v.51  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.21