Index | Rundeck: P1SoM40 | Created: Fri May 10 03:30:18 EDT 2024 |
getqma | Module: | File: RAD_DRV.f |
Author : R. Ruedy
Version:
Declaration:
subroutine getqma (iu, dglat, plb, dh2o, lm, jm)
- grid : used from domain_decomp_atm
- getdomainbounds : used from domain_decomp_atm
- write_parallel : used from domain_decomp_atm
- days_per_year : used from timeconstants_mod
- jma :
integer, parameter
- Initial Value
= 18
- lma :
integer, parameter
- Initial Value
= 24
- m :
integer
- iu :
integer
- jm :
integer
- lm :
integer
- j :
integer
- j1 :
integer
- j2 :
integer
- l :
integer
- ll :
integer
- ldn :
integer, dimension(lm)
- lup :
integer, dimension(lm)
- plb :
real*8, dimension(lm+1)
- dh2o :
real*8, dimension(grid%j_strt_halo:grid%j_stop_halo, lm, 12)
- dglat :
real*8, dimension(jm)
- pb :
real*4, dimension(0:lma+1)
- h2o :
real*4, dimension(jma, 0:lma)
- xlat :
real*4, dimension(jma)
- z :
real*4, dimension(lma)
- dz :
real*4, dimension(0:lma)
- title :
character*100
- pdn :
real*4
- pup :
real*4
- w1 :
real*4
- w2 :
real*4
- dh :
real*4
- fracl :
real*4
- j_0 :
integer
- j_1 :
integer
- out_line :
character(len=300)