143 |
&' /* Reference coriolis parameter ( 1/s ) */') |
&' /* Reference coriolis parameter ( 1/s ) */') |
144 |
CALL WRITE_0D_R8( beta, INDEX_NONE,'beta =', |
CALL WRITE_0D_R8( beta, INDEX_NONE,'beta =', |
145 |
&' /* Beta ( 1/(m.s) ) */') |
&' /* Beta ( 1/(m.s) ) */') |
146 |
|
|
147 |
CALL WRITE_0D_R8( freeSurfFac, INDEX_NONE,'freeSurfFac =', |
CALL WRITE_0D_R8( freeSurfFac, INDEX_NONE,'freeSurfFac =', |
148 |
&' /* Implicit free surface factor */') |
&' /* Implicit free surface factor */') |
149 |
CALL WRITE_0D_L( implicitFreeSurface, INDEX_NONE, |
CALL WRITE_0D_L( implicitFreeSurface, INDEX_NONE, |
158 |
CALL WRITE_0D_R8( implicDiv2Dflow, INDEX_NONE, |
CALL WRITE_0D_R8( implicDiv2Dflow, INDEX_NONE, |
159 |
&'implicDiv2Dflow =', |
&'implicDiv2Dflow =', |
160 |
&' /* Barot. Flow Div. implicit factor (0-1)*/') |
&' /* Barot. Flow Div. implicit factor (0-1)*/') |
161 |
|
CALL WRITE_0D_L( exactConserv, INDEX_NONE, |
162 |
|
&'exactConserv =', |
163 |
|
&' /* Exact Volume Conservation on/off flag*/') |
164 |
|
CALL WRITE_0D_L( uniformLin_PhiSurf, INDEX_NONE, |
165 |
|
&'uniformLin_PhiSurf =', |
166 |
|
&' /* use uniform Bo_surf on/off flag*/') |
167 |
|
CALL WRITE_0D_I( nonlinFreeSurf, INDEX_NONE, |
168 |
|
&'nonlinFreeSurf =', |
169 |
|
&' /* Non-linear Free Surf. options (-1,0,1,2,3)*/') |
170 |
|
WRITE(msgBuf,'(2A)') ' -1,0= Off ; 1,2,3= On,', |
171 |
|
& ' 2=+rescale gU,gV, 3=+update cg2d solv.' |
172 |
|
CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, |
173 |
|
& SQUEEZE_RIGHT , 1) |
174 |
|
CALL WRITE_0D_R8( hFacInf, INDEX_NONE, |
175 |
|
&'hFacInf =', |
176 |
|
&' /* lower threshold for hFac (nonlinFreeSurf only)*/') |
177 |
|
CALL WRITE_0D_R8( hFacSup, INDEX_NONE, |
178 |
|
&'hFacSup =', |
179 |
|
&' /* upper threshold for hFac (nonlinFreeSurf only)*/') |
180 |
|
CALL WRITE_0D_L( useRealFreshWaterFlux, INDEX_NONE, |
181 |
|
&'useRealFreshWaterFlux =', |
182 |
|
&' /* Real Fresh Water Flux on/off flag*/') |
183 |
|
IF (useRealFreshWaterFlux .AND. nonlinFreeSurf.GT.0) THEN |
184 |
|
CALL WRITE_0D_R8( temp_EvPrRn, INDEX_NONE, |
185 |
|
&'temp_EvPrRn =', |
186 |
|
&' /* Temp. of Evap/Prec/R (UNSET=use local T)(oC)*/') |
187 |
|
CALL WRITE_0D_R8( salt_EvPrRn, INDEX_NONE, |
188 |
|
&'salt_EvPrRn =', |
189 |
|
&' /* Salin. of Evap/Prec/R (UNSET=use local S)(ppt)*/') |
190 |
|
CALL WRITE_0D_R8( trac_EvPrRn, INDEX_NONE, |
191 |
|
&'trac_EvPrRn =', |
192 |
|
&' /* Tracer in Evap/Prec/R (UNSET=use local Tr)*/') |
193 |
|
ELSE |
194 |
|
CALL WRITE_0D_R8( convertFW2Salt, INDEX_NONE, |
195 |
|
&'convertFW2Salt =', |
196 |
|
&' /* convert F.W. Flux to Salt Flux (-1=use local S)(ppt)*/') |
197 |
|
ENDIF |
198 |
|
|
199 |
CALL WRITE_0D_L( staggerTimeStep, INDEX_NONE, |
CALL WRITE_0D_L( staggerTimeStep, INDEX_NONE, |
200 |
& 'staggerTimeStep =', |
& 'staggerTimeStep =', |
201 |
&' /* Stagger time stepping on/off flag */') |
&' /* Stagger time stepping on/off flag */') |