21 |
use dynetat0_m, only: grossismx, grossismy, rlatu, rlatv |
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 nr_util, only: pi |
USE paramet_m, ONLY: iip1, jjp1, llmp1 |
|
USE paramet_m, ONLY: iip1, ip1jmp1, jjp1, llmp1 |
|
25 |
USE q_sat_m, ONLY: q_sat |
USE q_sat_m, ONLY: q_sat |
26 |
use read_reanalyse_m, only: read_reanalyse |
use read_reanalyse_m, only: read_reanalyse |
27 |
use tau2alpha_m, only: tau2alpha |
use tau2alpha_m, only: tau2alpha |