/[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 69 by guez, Mon Feb 18 16:33:12 2013 UTC revision 70 by guez, Mon Jun 24 15:39:52 2013 UTC
# Line 10  contains Line 10  contains
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
12    
13      ! 1. Réarrangement des tableaux et transformation variables      ! 1. Réarrangement des tableaux et transformation des variables
14      ! dynamiques en variables physiques      ! dynamiques en variables physiques
15    
16      ! 2. Calcul des termes physiques      ! 2. Calcul des termes physiques
17      ! 3. Retransformation des tendances physiques en tendances dynamiques      ! 3. Retransformation des tendances physiques en tendances dynamiques
18    
# Line 22  contains Line 23  contains
23    
24      ! - La variable thermodynamique de la physique est une variable      ! - La variable thermodynamique de la physique est une variable
25      ! intensive : T.      ! intensive : T.
26      ! Pour la dynamique on prend T * (preff / p(l)) **kappa      ! Pour la dynamique on prend T * (preff / p(l))**kappa
27    
28      ! - Les deux seules variables dépendant de la géométrie      ! - Les deux seules variables dépendant de la géométrie
29      ! nécessaires pour la physique sont la latitude pour le      ! nécessaires pour la physique sont la latitude pour le
30      ! rayonnement et l'aire de la maille quand on veut intégrer une      ! rayonnement et l'aire de la maille quand on veut intégrer une
31      ! grandeur horizontalement.      ! grandeur horizontalement.
32    
33        use comconst, only: kappa, cpp, dtphys, g
34        use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv
35        use dimens_m, only: iim, jjm, llm, nqmx
36        use dimphy, only: klon
37        use disvert_m, only: preff
38        use grid_change, only: dyn_phy, gr_fi_dyn
39        use iniadvtrac_m, only: niadv
40        use nr_util, only: pi
41        use physiq_m, only: physiq
42        use pressure_var, only: p3d, pls
43    
44        ! Arguments :
45    
46      ! Input :      ! Input :
47      ! ucov covariant zonal velocity      ! ucov covariant zonal velocity
48      ! vcov covariant meridional velocity      ! vcov covariant meridional velocity
# Line 47  contains Line 61  contains
61      ! pdtrad radiative tendencies \ input and output      ! pdtrad radiative tendencies \ input and output
62      ! pfluxrad radiative fluxes / input and output      ! pfluxrad radiative fluxes / input and output
63    
64      use comconst, only: kappa, cpp, dtphys, g      REAL, intent(in):: rdayvrai
     use disvert_m, only: preff  
     use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv  
     use dimens_m, only: iim, jjm, llm, nqmx  
     use dimphy, only: klon  
     use grid_change, only: dyn_phy, gr_fi_dyn  
     use iniadvtrac_m, only: niadv  
     use nr_util, only: pi  
     use physiq_m, only: physiq  
     use pressure_var, only: p3d, pls  
   
     ! Arguments :  
   
     LOGICAL, intent(in):: lafin  
65      REAL, intent(in):: time ! heure de la journée en fraction de jour      REAL, intent(in):: time ! heure de la journée en fraction de jour
66        REAL, intent(in):: ucov(iim + 1, jjm + 1, llm)
67      REAL vcov(iim + 1, jjm, llm)      REAL vcov(iim + 1, jjm, llm)
     REAL ucov(iim + 1, jjm + 1, llm)  
68      REAL, intent(in):: teta(iim + 1, jjm + 1, llm)      REAL, intent(in):: teta(iim + 1, jjm + 1, llm)
     REAL masse(iim + 1, jjm + 1, llm)  
69    
70      REAL, intent(in):: q(iim + 1, jjm + 1, llm, nqmx)      REAL, intent(in):: q(iim + 1, jjm + 1, llm, nqmx)
71      ! (mass fractions of advected fields)      ! (mass fractions of advected fields)
72    
73        REAL masse(iim + 1, jjm + 1, llm)
74        REAL ps(iim + 1, jjm + 1)
75        REAL, intent(in):: pk(iim + 1, jjm + 1, llm)
76      REAL, intent(in):: phis(iim + 1, jjm + 1)      REAL, intent(in):: phis(iim + 1, jjm + 1)
77      REAL, intent(in):: phi(iim + 1, jjm + 1, llm)      REAL, intent(in):: phi(iim + 1, jjm + 1, llm)
   
     REAL dv(iim + 1, jjm, llm)  
78      REAL dudyn(iim + 1, jjm + 1, llm)      REAL dudyn(iim + 1, jjm + 1, llm)
79        REAL dv(iim + 1, jjm, llm)
80      REAL dq(iim + 1, jjm + 1, llm, nqmx)      REAL dq(iim + 1, jjm + 1, llm, nqmx)
   
81      REAL, intent(in):: w(iim + 1, jjm + 1, llm)      REAL, intent(in):: w(iim + 1, jjm + 1, llm)
   
     REAL ps(iim + 1, jjm + 1)  
     REAL, intent(in):: pk(iim + 1, jjm + 1, llm)  
   
     REAL dvfi(iim + 1, jjm, llm)  
82      REAL dufi(iim + 1, jjm + 1, llm)      REAL dufi(iim + 1, jjm + 1, llm)
83        REAL dvfi(iim + 1, jjm, llm)
84      REAL, intent(out):: dtetafi(iim + 1, jjm + 1, llm)      REAL, intent(out):: dtetafi(iim + 1, jjm + 1, llm)
85      REAL dqfi(iim + 1, jjm + 1, llm, nqmx)      REAL dqfi(iim + 1, jjm + 1, llm, nqmx)
86      REAL dpfi(iim + 1, jjm + 1)      REAL dpfi(iim + 1, jjm + 1)
87        LOGICAL, intent(in):: lafin
88    
89      ! Local variables :      ! Local variables :
90    
# Line 114  contains Line 111  contains
111      REAL:: rtetaSTD(ntetaSTD) = (/350., 380., 405./)      REAL:: rtetaSTD(ntetaSTD) = (/350., 380., 405./)
112      REAL PVteta(klon, ntetaSTD)      REAL PVteta(klon, ntetaSTD)
113    
     REAL, intent(in):: rdayvrai  
   
114      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
115    
116      !!print *, "Call sequence information: calfis"      !!print *, "Call sequence information: calfis"
Legend:
Removed from v.69  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.21