/[lmdze]/trunk/dyn3d/calfis.f
ViewVC logotype

Diff of /trunk/dyn3d/calfis.f

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

revision 47 by guez, Fri Jul 1 15:00:48 2011 UTC revision 69 by guez, Mon Feb 18 16:33:12 2013 UTC
# Line 48  contains Line 48  contains
48      ! pfluxrad radiative fluxes / input and output      ! pfluxrad radiative fluxes / input and output
49    
50      use comconst, only: kappa, cpp, dtphys, g      use comconst, only: kappa, cpp, dtphys, g
51      use comvert, only: preff      use disvert_m, only: preff
52      use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv      use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv
53      use dimens_m, only: iim, jjm, llm, nqmx      use dimens_m, only: iim, jjm, llm, nqmx
54      use dimphy, only: klon      use dimphy, only: klon
# Line 71  contains Line 71  contains
71      REAL, intent(in):: q(iim + 1, jjm + 1, llm, nqmx)      REAL, intent(in):: q(iim + 1, jjm + 1, llm, nqmx)
72      ! (mass fractions of advected fields)      ! (mass fractions of advected fields)
73    
74      REAL phis(iim + 1, jjm + 1)      REAL, intent(in):: phis(iim + 1, jjm + 1)
75      REAL, intent(in):: phi(iim + 1, jjm + 1, llm)      REAL, intent(in):: phi(iim + 1, jjm + 1, llm)
76    
77      REAL dv(iim + 1, jjm, llm)      REAL dv(iim + 1, jjm, llm)
Legend:
Removed from v.47  
changed lines
  Added in v.69
  ViewVC Help
Powered by ViewVC 1.1.21