/[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 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 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 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, intent(in):: 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.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21