| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch