/[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 129 by guez, Wed Apr 2 12:59:54 2014 UTC revision 130 by guez, Tue Feb 24 15:43:51 2015 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, pk, phis, phi, w, &    SUBROUTINE calfis(dayvrai, time, ucov, vcov, teta, q, pk, phis, phi, w, &
8         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
# Line 13  contains Line 13  contains
13      ! 1. R\'earrangement des tableaux et transformation des variables      ! 1. R\'earrangement 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 tendances physiques
17      ! 3. Retransformation des tendances physiques en tendances dynamiques      ! 3. Retransformation des tendances physiques en tendances dynamiques
18    
19      ! Remarques:      ! Remarques:
# Line 40  contains Line 40  contains
40      use physiq_m, only: physiq      use physiq_m, only: physiq
41      use pressure_var, only: p3d, pls      use pressure_var, only: p3d, pls
42    
43      REAL, intent(in):: rdayvrai      integer, intent(in):: dayvrai
44      REAL, intent(in):: time ! heure de la journ\'ee en fraction de jour      ! current day number, based at value 1 on January 1st of annee_ref
45    
46        REAL, intent(in):: time ! time of day, as a fraction of day length
47    
48      REAL, intent(in):: ucov(:, :, :) ! (iim + 1, jjm + 1, llm)      REAL, intent(in):: ucov(:, :, :) ! (iim + 1, jjm + 1, llm)
49      ! covariant zonal velocity      ! covariant zonal velocity
# Line 176  contains Line 178  contains
178      forall(l = 1: llm) v(:, l) = pack(zvfi(:, :, l), dyn_phy)      forall(l = 1: llm) v(:, l) = pack(zvfi(:, :, l), dyn_phy)
179    
180      ! Appel de la physique :      ! Appel de la physique :
181      CALL physiq(lafin, rdayvrai, time, dtphys, paprs, play, pphi, pphis, u, &      CALL physiq(lafin, dayvrai, time, dtphys, paprs, play, pphi, pphis, u, &
182           v, t, qx, omega, d_u, d_v, d_t, d_qx)           v, t, qx, omega, d_u, d_v, d_t, d_qx)
183    
184      ! transformation des tendances physiques en tendances dynamiques:      ! transformation des tendances physiques en tendances dynamiques:
Legend:
Removed from v.129  
changed lines
  Added in v.130
  ViewVC Help
Powered by ViewVC 1.1.21