69 REAL(KIND=8) ::
nua=0.d0
70 REAL(KIND=8) ::
nuo=0.d0
86 INTEGER,
DIMENSION(:,:),
ALLOCATABLE ::
oms 87 INTEGER,
DIMENSION(:,:),
ALLOCATABLE ::
ams 106 namelist /modeselection/
oms,
ams 111 OPEN(8, file=
"params.nml", status=
'OLD', recl=80, delim=
'APOSTROPHE')
122 OPEN(8, file=
"modeselection.nml", status=
'OLD', recl=80, delim=
'APOSTROPHE')
126 IF (allocstat /= 0) stop
"*** Not enough memory ! ***" 128 READ(8,nml=modeselection)
131 OPEN(8, file=
"int_params.nml", status=
'OLD', recl=80, delim=
'APOSTROPHE')
132 READ(8,nml=int_params)
138 INTEGER,
DIMENSION(2) :: s
151 IF (
ams(i,1)==1)
THEN real(kind=8) phi0_npi
Latitude exprimed in fraction of pi.
real(kind=8) nuap
Non-dimensional dissipation in the atmosphere.
real(kind=8) sb
Stefan–Boltzmann constant.
real(kind=8) cpa
- Non-dimensional constant short-wave radiation of the atmosphere.
integer ndim
Number of variables (dimension of the model)
real(kind=8) go
- Specific heat capacity of the ocean.
integer noc
Number of oceanic basis functions.
real(kind=8) ta0
- Stationary solution for the 0-th order atmospheric temperature.
integer nbatm
Number of oceanic blocks.
real(kind=8) sig0
- Non-dimensional static stability of the atmosphere.
real(kind=8) betp
- Non-dimensional beta parameter
real(kind=8) tw
Write all variables every tw time units.
subroutine, private init_nml
Read the basic parameters and mode selection from the namelist.
real(kind=8) nuop
Non-dimensional dissipation in the ocean.
real(kind=8) kdp
- Non-dimensional internal atmospheric friction coefficient.
real(kind=8) lambda
- Sensible + turbulent heat exchange between the ocean and the atmosphere.
logical writeout
Write to file boolean.
real(kind=8) t_run
Effective intergration time (length of the generated trajectory)
real(kind=8) epsa
- Emissivity coefficient for the grey-body atmosphere.
real(kind=8) kd
- Non-dimensional bottom atmospheric friction coefficient.
real(kind=8) sc
Ratio of surface to atmosphere temperature.
real(kind=8) sbpo
- Long wave radiation lost by ocean to atmosphere & space.
real(kind=8) kp
- Internal atmospheric friction coefficient.
real(kind=8) dp
- Non-dimensional mechanical coupling parameter between the ocean and the atmosphere.
real(kind=8) to0
- Stationary solution for the 0-th order ocean temperature.
real(kind=8) co
- Constant short-wave radiation of the ocean.
real(kind=8) f0
- Coriolis parameter
real(kind=8) rr
- Gas constant of dry air
integer natm
Number of atmospheric basis functions.
real(kind=8) h
Depth of the active water layer of the ocean.
real(kind=8) ca
- Constant short-wave radiation of the atmosphere.
real(kind=8) ga
- Specific heat capacity of the atmosphere.
real(kind=8) k
Bottom atmospheric friction coefficient.
real(kind=8) lpo
- Non-dimensional sensible + turbulent heat exchange from ocean to atmosphere.
real(kind=8) scale
- The characteristic space scale.
real(kind=8) l
- Domain length scale
real(kind=8) sbpa
- Long wave radiation from atmosphere absorbed by ocean.
integer nboc
Number of atmospheric blocks.
The model parameters module.
real(kind=8) r
Frictional coefficient at the bottom of the ocean.
subroutine init_params
Parameters initialisation routine.
real(kind=8) lr
- Rossby deformation radius
real(kind=8) rra
Earth radius.
real(kind=8) lsbpa
- Long wave radiation lost by atmosphere to space & ocean.
real(kind=8) lpa
- Non-dimensional sensible + turbulent heat exchange from atmosphere to ocean.
real(kind=8) dt
Integration time step.
real(kind=8) gp
Reduced gravity
integer, dimension(:,:), allocatable ams
Atmospheric mode selection array.
real(kind=8) rp
- Frictional coefficient at the bottom of the ocean.
real(kind=8) nua
Dissipation in the atmosphere.
real(kind=8) cpo
- Non-dimensional constant short-wave radiation of the ocean.
real(kind=8) t_trans
Transient time period.
real(kind=8) lsbpo
- Long wave radiation from ocean absorbed by atmosphere.
integer, dimension(:,:), allocatable oms
Ocean mode selection array.
real(kind=8) n
- Aspect ratio
real(kind=8) nuo
Dissipation in the ocean.
real(kind=8) phi0
Latitude in radian.
real(kind=8) d
Merchanical coupling parameter between the ocean and the atmosphere.