Index | Rundeck: P1SoM40 | Created: Thu May 9 03:30:17 EDT 2024 |
opfil | Module: | File: OCNDYN.f |
Author :
Version:
Declaration:
subroutine opfil (x)
- twopi : used from constant
- im : used from ocean
- jm : used from ocean
- lmo : used from ocean
- j1o : used from ocean
- dlon : used from ocean
- dxp : used from ocean
- Initial Value
= >DXPO
- dyp : used from ocean
- Initial Value
= >DYPO
- jmpf : used from ocean
- Initial Value
= >J40S
- openunit : used from filemanager
- closeunit : used from filemanager
- grid : used from oceanr_dim
- Initial Value
= >ogrid
- x :
real*8, intent(inout), dimension(IM, GRID%J_STRT_HALO:GRID%J_STOP_HALO, LMO)
- imz2 :
integer*4, parameter
- Initial Value
= IM/2
- jmex :
integer*4, save
- nbasm :
integer*4, save
- indm :
integer*4, save
- nmin :
integer*4, save, dimension(JM)
- smooth :
real*8, save, dimension(IMz2, JM)
- nbas :
integer*2, save, allocatable, dimension(:, :)
- iminm1 :
integer*2, save, allocatable, dimension(:, :, :)
- iwidm1 :
integer*2, save, allocatable, dimension(:, :, :)
- index :
integer*4, save, allocatable, dimension(:, :)
- reduco :
real*4, save, allocatable, dimension(:)
- reduco_glob :
real*4, allocatable, dimension(:)
- title :
character*80
- i :
integer*4
- i1 :
integer*4
- indx :
integer*4
- iwm2 :
integer*4
- iwm1 :
integer*4
- j :
integer*4
- ja :
integer*4
- jx :
integer*4
- k :
integer*4
- l :
integer*4
- n :
integer*4
- nb :
integer*4
- iu_avr :
integer*4
- indx_min :
integer
- indx_max :
integer
- an :
real*8, dimension(0:IMz2)
- bn :
real*8, dimension(0:IMz2)
- y :
real*8, dimension(IM*2)
- drat :
real*8
- reduc :
real*8
- ifirst :
integer*4, save
- Initial Value
= 1
- j1 :
integer*4, save
- jn :
integer*4, save
- j1p :
integer*4, save
- jnp :
integer*4, save