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 |
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 |
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 |
|
|