14 |
! ----------------------------------------------------------------- |
! ----------------------------------------------------------------- |
15 |
use dimens_m |
use dimens_m |
16 |
use paramet_m |
use paramet_m |
17 |
use comvert |
use disvert_m |
18 |
use comgeom |
use comgeom |
19 |
use conf_guide_m |
use conf_guide_m |
20 |
use netcdf |
use netcdf |
29 |
integer nlevnc |
integer nlevnc |
30 |
integer timestep,mode,l |
integer timestep,mode,l |
31 |
|
|
32 |
real psi(iip1,jjp1) |
real, intent(in):: psi(iip1,jjp1) |
33 |
real u(iip1,jjp1,llm),v(iip1,jjm,llm) |
real u(iip1,jjp1,llm),v(iip1,jjm,llm) |
34 |
real t(iip1,jjp1,llm),ps(iip1,jjp1),q(iip1,jjp1,llm) |
real t(iip1,jjp1,llm),ps(iip1,jjp1),q(iip1,jjp1,llm) |
35 |
real masse(iip1,jjp1,llm),pk(iip1,jjp1,llm) |
real masse(iip1,jjp1,llm),pk(iip1,jjp1,llm) |