--- trunk/Sources/dyn3d/Guide/guide.f 2015/09/30 15:59:14 172 +++ trunk/Sources/dyn3d/Guide/guide.f 2016/03/11 18:47:26 178 @@ -13,16 +13,15 @@ USE comconst, ONLY: cpp, kappa USE conf_gcm_m, ONLY: day_step - use conf_guide_m, only: guide_u, guide_v, guide_t, guide_q, ncep, & - ini_anal, tau_min_u, tau_max_u, tau_min_v, tau_max_v, tau_min_t, & - tau_max_t, tau_min_q, tau_max_q, online, factt + use conf_guide_m, only: guide_u, guide_v, guide_t, guide_q, ini_anal, & + tau_min_u, tau_max_u, tau_min_v, tau_max_v, tau_min_t, tau_max_t, & + tau_min_q, tau_max_q, online, factt USE dimens_m, ONLY: iim, jjm, llm USE disvert_m, ONLY: ap, bp, preff use dynetat0_m, only: grossismx, grossismy, rlatu, rlatv USE exner_hyb_m, ONLY: exner_hyb use init_tau2alpha_m, only: init_tau2alpha - use nr_util, only: pi - USE paramet_m, ONLY: iip1, ip1jmp1, jjp1, llmp1 + USE paramet_m, ONLY: iip1, jjp1, llmp1 USE q_sat_m, ONLY: q_sat use read_reanalyse_m, only: read_reanalyse use tau2alpha_m, only: tau2alpha