Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
stable | Module: | File: ODIAG_PRT.f |
Author :
Version:
Declaration:
subroutine stable (lmst, strait, ax, title, sumormn)
- lmst :
integer, intent(in), dimension(nmst)
- = number of layers for each strait
- strait :
character*20, intent(in), dimension(nmst)
- = names of straits
- ax :
real*8, dimension(lmo, nmst), intent(in)
- = two dimensional input array
- title :
character*80, intent(in)
- = title of run
- sumormn :
integer, intent(in)
- flag for whether sum or mean or neither ar printed
- lmo : used from ocean
- nmst : used from straits
- lmaxst :
integer, parameter
- Initial Value
= 6
- linect :
integer, save
- Initial Value
= 0.
- suml :
real*8
- ns :
integer
- l :
integer
- lmax :
integer