/[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 91 by guez, Wed Mar 26 17:18:58 2014 UTC revision 95 by guez, Wed Apr 2 12:59:54 2014 UTC
# Line 4  module calfis_m Line 4  module calfis_m
4    
5  contains  contains
6    
7    SUBROUTINE calfis(rdayvrai, time, ucov, vcov, teta, q, ps, pk, phis, phi, &    SUBROUTINE calfis(rdayvrai, time, ucov, vcov, teta, q, pk, phis, phi, w, &
8         w, dufi, dvfi, dtetafi, dqfi, lafin)         dufi, dvfi, dtetafi, dqfi, lafin)
9    
10      ! From dyn3d/calfis.F, version 1.3, 2005/05/25 13:10:09      ! From dyn3d/calfis.F, version 1.3, 2005/05/25 13:10:09
11      ! Authors: P. Le Van, F. Hourdin      ! Authors: P. Le Van, F. Hourdin
# Line 55  contains Line 55  contains
55      REAL, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx)      REAL, intent(in):: q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nqmx)
56      ! mass fractions of advected fields      ! mass fractions of advected fields
57    
     REAL, intent(in):: ps(:, :) ! (iim + 1, jjm + 1) surface pressure  
   
58      REAL, intent(in):: pk(:, :, :) ! (iim + 1, jjm + 1, llm)      REAL, intent(in):: pk(:, :, :) ! (iim + 1, jjm + 1, llm)
59      ! Exner = cp * (p / preff)**kappa      ! Exner = cp * (p / preff)**kappa
60    
# Line 77  contains Line 75  contains
75      LOGICAL, intent(in):: lafin      LOGICAL, intent(in):: lafin
76    
77      ! Local:      ! Local:
78      INTEGER i, j, l, ig0, iq, iiq      INTEGER i, j, l, ig0, iq
     REAL zpsrf(klon)  
79      REAL paprs(klon, llm + 1) ! aux interfaces des couches      REAL paprs(klon, llm + 1) ! aux interfaces des couches
80      REAL play(klon, llm) ! aux milieux des couches      REAL play(klon, llm) ! aux milieux des couches
81      REAL pphi(klon, llm), pphis(klon)      REAL pphi(klon, llm), pphis(klon)
Legend:
Removed from v.91  
changed lines
  Added in v.95
  ViewVC Help
Powered by ViewVC 1.1.21