57 |
use comconst, only: kappa, cpp, dtphys, g, pi |
use comconst, only: kappa, cpp, dtphys, g, pi |
58 |
use comvert, only: preff, presnivs |
use comvert, only: preff, presnivs |
59 |
use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv |
use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv |
60 |
use advtrac_m, only: niadv |
use iniadvtrac_m, only: niadv |
61 |
use grid_change, only: dyn_phy, gr_fi_dyn |
use grid_change, only: dyn_phy, gr_fi_dyn |
62 |
use physiq_m, only: physiq |
use physiq_m, only: physiq |
63 |
use pressure_var, only: p3d, pls |
use pressure_var, only: p3d, pls |
64 |
|
|
65 |
! 0. Declarations : |
! 0. Declarations : |
66 |
|
|
67 |
INTEGER nq |
INTEGER, intent(in):: nq |
68 |
|
|
69 |
! Arguments : |
! Arguments : |
70 |
|
|