/[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 116 by guez, Thu Dec 4 16:35:03 2014 UTC trunk/Sources/dyn3d/Guide/guide.f revision 171 by guez, Tue Sep 29 19:48:59 2015 UTC
# Line 12  CONTAINS Line 12  CONTAINS
12      ! Author: F.Hourdin      ! Author: F.Hourdin
13    
14      USE comconst, ONLY: cpp, kappa      USE comconst, ONLY: cpp, kappa
     USE comgeom, ONLY: rlatu, rlatv  
15      USE conf_gcm_m, ONLY: day_step      USE conf_gcm_m, ONLY: day_step
16      use conf_guide_m, only: guide_u, guide_v, guide_t, guide_q, ncep, &      use conf_guide_m, only: guide_u, guide_v, guide_t, guide_q, ncep, &
17           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, &
18           tau_max_t, tau_min_q, tau_max_q, online, factt           tau_max_t, tau_min_q, tau_max_q, online, factt
19      USE dimens_m, ONLY: iim, jjm, llm      USE dimens_m, ONLY: iim, jjm, llm
20      USE disvert_m, ONLY: ap, bp, preff, presnivs      USE disvert_m, ONLY: ap, bp, preff
21        use dynetat0_m, only: grossismx, grossismy, rlatu, rlatv
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 28  CONTAINS Line 28  CONTAINS
28      USE paramet_m, ONLY: iip1, ip1jmp1, jjp1, llmp1      USE paramet_m, ONLY: iip1, ip1jmp1, jjp1, llmp1
29      USE q_sat_m, ONLY: q_sat      USE q_sat_m, ONLY: q_sat
30      use read_reanalyse_m, only: read_reanalyse      use read_reanalyse_m, only: read_reanalyse
     use serre, only: grossismx, grossismy  
31      use tau2alpha_m, only: tau2alpha      use tau2alpha_m, only: tau2alpha
32      use writefield_m, only: writefield      use writefield_m, only: writefield
33    
# Line 126  CONTAINS Line 125  CONTAINS
125         step_rea = 1         step_rea = 1
126         count_no_rea = 0         count_no_rea = 0
127    
128         ! lecture d'un fichier netcdf pour determiner le nombre de niveaux :         ! Lecture d'un fichier NetCDF pour d\'eterminer le nombre de niveaux :
129    
130         if (guide_u) then         if (guide_u) then
131            call nf95_open('u.nc',Nf90_NOWRITe,ncid)            call nf95_open('u.nc',Nf90_NOWRITe,ncid)
Legend:
Removed from v.116  
changed lines
  Added in v.171
  ViewVC Help
Powered by ViewVC 1.1.21