/[lmdze]/trunk/libf/dyn3d/calfis.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/calfis.f90

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

revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC revision 18 by guez, Thu Aug 7 12:29:13 2008 UTC
# Line 8  contains Line 8  contains
8    
9    SUBROUTINE calfis(nq, lafin, rdayvrai, heure, pucov, pvcov, pteta, pq, &    SUBROUTINE calfis(nq, lafin, rdayvrai, heure, pucov, pvcov, pteta, pq, &
10         pmasse, pps, ppk, pphis, pphi, pducov, pdvcov, pdteta, pdq, pw, &         pmasse, pps, ppk, pphis, pphi, pducov, pdvcov, pdteta, pdq, pw, &
11         clesphy0, pdufi, pdvfi, pdhfi, pdqfi, pdpsfi)         pdufi, pdvfi, pdhfi, pdqfi, pdpsfi)
12    
13      ! From dyn3d/calfis.F,v 1.3 2005/05/25 13:10:09      ! From dyn3d/calfis.F,v 1.3 2005/05/25 13:10:09
14    
# Line 57  contains Line 57  contains
57      use comconst, only: kappa, cpp, dtphys, g, pi      use comconst, only: kappa, cpp, dtphys, g, pi
58      use comvert, only: preff, presnivs      use comvert, only: preff, presnivs
59      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
60      use advtrac_m, only: niadv      use iniadvtrac_m, only: niadv
61      use grid_change, only: dyn_phy, gr_fi_dyn      use grid_change, only: dyn_phy, gr_fi_dyn
62      use physiq_m, only: physiq      use physiq_m, only: physiq
63      use pressure_var, only: p3d, pls      use pressure_var, only: p3d, pls
64    
65      !    0.  Declarations :      !    0.  Declarations :
66    
67      INTEGER nq      INTEGER, intent(in):: nq
68    
69      !    Arguments :      !    Arguments :
70    
# Line 99  contains Line 99  contains
99      REAL pdpsfi(iim + 1,jjm + 1)      REAL pdpsfi(iim + 1,jjm + 1)
100    
101      INTEGER, PARAMETER:: longcles = 20      INTEGER, PARAMETER:: longcles = 20
     REAL clesphy0(longcles)  
102    
103      !    Local variables :      !    Local variables :
104    
# Line 332  contains Line 331  contains
331      !   Appel de la physique:      !   Appel de la physique:
332    
333      CALL physiq(nq, firstcal, lafin, rdayvrai, heure, dtphys, &      CALL physiq(nq, firstcal, lafin, rdayvrai, heure, dtphys, &
334           zplev, zplay, zphi, zphis, presnivs, clesphy0, zufi, zvfi, &           zplev, zplay, zphi, zphis, presnivs, zufi, zvfi, &
335           ztfi, zqfi, pvervel, zdufi, zdvfi, zdtfi, zdqfi, zdpsrf, pducov, &           ztfi, zqfi, pvervel, zdufi, zdvfi, zdtfi, zdqfi, zdpsrf, pducov, &
336           PVteta) ! IM diagnostique PVteta, Amip2           PVteta) ! IM diagnostique PVteta, Amip2
337    
Legend:
Removed from v.10  
changed lines
  Added in v.18
  ViewVC Help
Powered by ViewVC 1.1.21