23 |
|
|
24 |
! Author: F.Hourdin |
! Author: F.Hourdin |
25 |
|
|
26 |
USE dimens_m, ONLY : jjm, llm |
USE comconst, ONLY : cpp, daysec, dtvr, kappa |
|
USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1 |
|
|
USE comconst, ONLY : cpp, daysec, dtvr, kappa, pi |
|
27 |
USE comvert, ONLY : ap, bp, preff, presnivs |
USE comvert, ONLY : ap, bp, preff, presnivs |
28 |
USE conf_gcm_m, ONLY : day_step, iperiod |
USE conf_gcm_m, ONLY : day_step, iperiod |
29 |
USE comgeom, ONLY : aire, rlatu, rlonv |
USE comgeom, ONLY : aire, rlatu, rlonv |
30 |
USE serre, ONLY : clat, clon |
USE dimens_m, ONLY : jjm, llm |
|
USE q_sat_m, ONLY : q_sat |
|
31 |
USE exner_hyb_m, ONLY : exner_hyb |
USE exner_hyb_m, ONLY : exner_hyb |
32 |
USE inigrads_m, ONLY : inigrads |
USE inigrads_m, ONLY : inigrads |
33 |
use netcdf, only: nf90_nowrite, nf90_open, nf90_close |
use netcdf, only: nf90_nowrite, nf90_open, nf90_close |
34 |
|
use nr_util, only: pi |
35 |
|
USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1, llmp1 |
36 |
|
USE q_sat_m, ONLY : q_sat |
37 |
|
USE serre, ONLY : clat, clon |
38 |
use tau2alpha_m, only: tau2alpha |
use tau2alpha_m, only: tau2alpha |
39 |
|
|
40 |
INCLUDE 'netcdf.inc' |
INCLUDE 'netcdf.inc' |