/[lmdze]/trunk/Sources/dyn3d/Guide/guide.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/Guide/guide.f

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

trunk/dyn3d/Guide/guide.f revision 115 by guez, Fri Sep 19 17:36:20 2014 UTC trunk/Sources/dyn3d/Guide/guide.f revision 135 by guez, Thu Apr 30 14:22:32 2015 UTC
# Line 18  CONTAINS Line 18  CONTAINS
18           ini_anal, tau_min_u, tau_max_u, tau_min_v, tau_max_v, tau_min_t, &           ini_anal, tau_min_u, tau_max_u, tau_min_v, tau_max_v, tau_min_t, &
19           tau_max_t, tau_min_q, tau_max_q, online, factt           tau_max_t, tau_min_q, tau_max_q, online, factt
20      USE dimens_m, ONLY: iim, jjm, llm      USE dimens_m, ONLY: iim, jjm, llm
21      USE disvert_m, ONLY: ap, bp, preff, presnivs      USE disvert_m, ONLY: ap, bp, preff
22      USE exner_hyb_m, ONLY: exner_hyb      USE exner_hyb_m, ONLY: exner_hyb
23      use init_tau2alpha_m, only: init_tau2alpha      use init_tau2alpha_m, only: init_tau2alpha
24      use netcdf, only: nf90_nowrite      use netcdf, only: nf90_nowrite
# Line 59  CONTAINS Line 59  CONTAINS
59      REAL, save:: qrea2(iim + 1, jjm + 1, llm) ! temp pot reales      REAL, save:: qrea2(iim + 1, jjm + 1, llm) ! temp pot reales
60      REAL, save:: masserea2(ip1jmp1, llm) ! masse      REAL, save:: masserea2(ip1jmp1, llm) ! masse
61    
62      ! alpha determine la part des injections de donnees a chaque etape      ! alpha détermine la part des injections de données à chaque étape
63      ! alpha=0 signifie pas d'injection      ! alpha=0 signifie pas d'injection
64      ! alpha=1 signifie injection totale      ! alpha=1 signifie injection totale
65      REAL, save:: alpha_q(iim + 1, jjm + 1)      REAL, save:: alpha_q(iim + 1, jjm + 1)
# Line 162  CONTAINS Line 162  CONTAINS
162         tetarea1 = tetarea2         tetarea1 = tetarea2
163         qrea1 = qrea2         qrea1 = qrea2
164    
165         PRINT *, 'LECTURE REANALYSES, pas ', step_rea, 'apres ', &         PRINT *, 'Lecture fichiers guidage, pas ', step_rea, 'apres ', &
166              count_no_rea, ' non lectures'              count_no_rea, ' non lectures'
167         step_rea = step_rea + 1         step_rea = step_rea + 1
168         CALL read_reanalyse(step_rea, ps, ucovrea2, vcovrea2, tetarea2, qrea2, &         CALL read_reanalyse(step_rea, ps, ucovrea2, vcovrea2, tetarea2, qrea2, &
Legend:
Removed from v.115  
changed lines
  Added in v.135
  ViewVC Help
Powered by ViewVC 1.1.21