19 |
C *==========================================================* |
C *==========================================================* |
20 |
CEOP |
CEOP |
21 |
|
|
22 |
|
C-- COMMON /OBC_PARM_I/ OBCS integer-type parameter |
23 |
|
C OBCS_u1_adv_T :: >0: use 1rst O. upwind adv-scheme @ OB (=1: only if outflow) |
24 |
|
C OBCS_u1_adv_S :: >0: use 1rst O. upwind adv-scheme @ OB (=1: only if outflow) |
25 |
|
C OBCS_monSelect :: select group of variables to monitor |
26 |
|
C spongeThickness :: number grid points that make up the sponge layer (def=0) |
27 |
|
COMMON /OBC_PARM_I/ |
28 |
|
& OBCS_u1_adv_T, OBCS_u1_adv_S, |
29 |
|
& OBCS_monSelect, |
30 |
|
& spongeThickness |
31 |
|
INTEGER OBCS_u1_adv_T, OBCS_u1_adv_S |
32 |
|
INTEGER OBCS_monSelect |
33 |
|
INTEGER spongeThickness |
34 |
|
|
35 |
|
C-- COMMON /OBC_PARM_L/ OBCS logical-type parameter |
36 |
C useOrlanskiNorth/South/East/West |
C useOrlanskiNorth/South/East/West |
37 |
C :: specify Orlanski boundary conditions for northern/ |
C :: specify Orlanski boundary conditions for northern/ |
38 |
C southern/eastern/Western |
C southern/eastern/Western |
39 |
C useStevensNorth/South/East/West |
C useStevensNorth/South/East/West |
40 |
C :: use open boundary computations following Stevens (1990) |
C :: use open boundary computations following Stevens (1990) |
|
C T/SrelaxStevens :: relaxation time scale (in seconds) for T/S-points |
|
|
C for Stevens boundary conditions |
|
41 |
C useStevensPhaseVel |
C useStevensPhaseVel |
42 |
C :: use phase velocity contribution for open boundary |
C :: use phase velocity contribution for open boundary |
43 |
C computations following Stevens (1990), default = true |
C computations following Stevens (1990), default = true |
45 |
C :: use advective contribution for open boundary |
C :: use advective contribution for open boundary |
46 |
C computations following Stevens (1990), default = true |
C computations following Stevens (1990), default = true |
47 |
C useOBCSsponge :: turns on sponge layer along boundary (def=false) |
C useOBCSsponge :: turns on sponge layer along boundary (def=false) |
|
C spongeThickness :: number grid points that make up the sponge layer (def=0) |
|
|
C U/Vrelaxobcsinner/bound :: relaxation time scale (in seconds) for U/V-points |
|
|
C on the boundary (bound) and at the innermost grid point |
|
|
C of the sponge layer (inner); relaxation time scales |
|
|
C in-between are linearly interpolated from these values |
|
48 |
C useOBCSbalance :: balance the volume flux through boundary |
C useOBCSbalance :: balance the volume flux through boundary |
49 |
C at every time step |
C at every time step |
50 |
C useOBCSprescribe :: read boundary conditions from a file |
C useOBCSprescribe :: read boundary conditions from a file |
52 |
C OBCSprintDiags :: print boundary values to STDOUT (def=true) |
C OBCSprintDiags :: print boundary values to STDOUT (def=true) |
53 |
C OBCSfixTopo :: check and adjust topography for problematic gradients |
C OBCSfixTopo :: check and adjust topography for problematic gradients |
54 |
C across boundaries (def=true) |
C across boundaries (def=true) |
|
C tileHasOB[N,S,E,W] :: this tile has OB at Northern/Southern/Eastern/Western edge |
|
|
C insideOBmaskFile :: File to specify Inside OB region mask (zero beyond OB). |
|
|
C OB[N,S,E,W][u,v,t,s,a,h,sn,sl,uice,vice]File :: Files with boundary conditions, |
|
|
C the letter combinations mean: |
|
|
C N/S/E/W :: northern/southern/eastern/western boundary |
|
|
C u/v/t/s :: ocean u/v velocities, temperature/salinity |
|
|
C a/h :: sea ice concentration/effective thickness |
|
|
C sn/sl :: effective snow thickness/sea ice salinity |
|
|
C uice/vice :: sea ice u/v drift velocities |
|
|
|
|
|
COMMON /OBC_PARM_I/ |
|
|
& OBCS_monSelect, |
|
|
& spongeThickness |
|
|
INTEGER OBCS_monSelect |
|
|
INTEGER spongeThickness |
|
55 |
|
|
56 |
COMMON /OBC_PARM_L/ |
COMMON /OBC_PARM_L/ |
57 |
& useOrlanskiNorth,useOrlanskiSouth, |
& useOrlanskiNorth,useOrlanskiSouth, |
78 |
LOGICAL OBCSprintDiags |
LOGICAL OBCSprintDiags |
79 |
LOGICAL OBCSfixTopo |
LOGICAL OBCSfixTopo |
80 |
|
|
81 |
C OBCS_balanceFacN/S/E/W :: weighting factor for balancing OB normal flow |
C-- COMMON /OBC_PARM_R/ OBCS real-type parameter |
82 |
C OBCS_uvApplyFac :: multiplying factor to U,V normal comp. when applying |
C OBCS_balanceFacN/S/E/W :: weighting factor for balancing OB normal flow |
83 |
C OBC to 2nd column/row (for backward compatibility). |
C OBCS_uvApplyFac :: multiplying factor to U,V normal comp. when applying |
84 |
C OBCS_monitorFreq :: monitor output frequency (s) for OB statistics |
C OBC to 2nd column/row (for backward compatibility). |
85 |
C OBCS_monSelect :: select group of variables to monitor |
C OBCS_monitorFreq :: monitor output frequency (s) for OB statistics |
86 |
|
C U/Vrelaxobcsinner/bound :: relaxation time scale (in seconds) on the boundary |
87 |
|
C (bound) and at the innermost grid point of the sponge |
88 |
|
C layer (inner); relaxation time scales in-between |
89 |
|
C are linearly interpolated from these values |
90 |
|
C T/SrelaxStevens :: relaxation time scale (in seconds) for T/S-points |
91 |
|
C for Stevens boundary conditions |
92 |
COMMON /OBC_PARM_R/ |
COMMON /OBC_PARM_R/ |
93 |
& OBCS_balanceFacN, OBCS_balanceFacS, |
& OBCS_balanceFacN, OBCS_balanceFacS, |
94 |
& OBCS_balanceFacE, OBCS_balanceFacW, |
& OBCS_balanceFacE, OBCS_balanceFacW, |
108 |
_RS TrelaxStevens |
_RS TrelaxStevens |
109 |
_RS SrelaxStevens |
_RS SrelaxStevens |
110 |
|
|
111 |
|
C-- COMMON /OBC_FILES/ OBCS character-type parameter |
112 |
|
C insideOBmaskFile :: File to specify Inside OB region mask (zero beyond OB). |
113 |
|
C OB[N,S,E,W][u,v,t,s,a,h,sn,sl,uice,vice]File :: Files with boundary conditions, |
114 |
|
C the letter combinations mean: |
115 |
|
C N/S/E/W :: northern/southern/eastern/western boundary |
116 |
|
C u/v/t/s :: ocean u/v velocities, temperature/salinity |
117 |
|
C a/h :: sea ice concentration/effective thickness |
118 |
|
C sn/sl :: effective snow thickness/sea ice salinity |
119 |
|
C uice/vice :: sea ice u/v drift velocities |
120 |
COMMON /OBC_FILES/ |
COMMON /OBC_FILES/ |
121 |
& OBNuFile, OBSuFile, OBEuFile, OBWuFile, |
& OBNuFile, OBSuFile, OBEuFile, OBWuFile, |
122 |
& OBNvFile, OBSvFile, OBEvFile, OBWvFile, |
& OBNvFile, OBSvFile, OBEvFile, OBWvFile, |