/[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 18 by guez, Thu Aug 7 12:29:13 2008 UTC revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC
# Line 55  contains Line 55  contains
55      use dimens_m, only: iim, jjm, llm, nqmx      use dimens_m, only: iim, jjm, llm, nqmx
56      use dimphy, only: klon      use dimphy, only: klon
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
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 iniadvtrac_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
# Line 331  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, zufi, zvfi, &           zplev, zplay, zphi, zphis, 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.18  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.21