| 1 | C $Id$ |
|---|
| 2 | CCC----------------------------------------------------------------- |
|---|
| 3 | CCC |
|---|
| 4 | CCC ROUTINE trcini.hamocc3.h |
|---|
| 5 | CCC ************************ |
|---|
| 6 | CCC |
|---|
| 7 | CCC PURPOSE : |
|---|
| 8 | CCC --------- |
|---|
| 9 | CCC Initialisation of HAMOCC3 biological and chemical variables |
|---|
| 10 | CCC |
|---|
| 11 | CC METHOD : |
|---|
| 12 | CC ------- |
|---|
| 13 | CC 1) SET CONSTANTS FOR CARBONATE CHEMISTRY AS DESCRIBED IN |
|---|
| 14 | CC IN BROECKER ET AL. (1982, GEOSECS) AND EDMOND A. GIESKES |
|---|
| 15 | CC (1970) |
|---|
| 16 | CC 2) INITIATE [CO3--] AND PH-VALUE BY ITERATION |
|---|
| 17 | CC (NEWTON-RAPHSON METHOD FOR SOLVING NONLINEAR SIMULTANEOUS |
|---|
| 18 | CC EQUATIONS, SEE E.G. SCARBOROUGH, J. (1958)) |
|---|
| 19 | CC |
|---|
| 20 | CC This sub-routine merges previous initia2.F bioini.F bioini2.F |
|---|
| 21 | CC |
|---|
| 22 | CC INPUT : |
|---|
| 23 | CC ----- |
|---|
| 24 | CC common |
|---|
| 25 | CC all the common defined in opa |
|---|
| 26 | CC |
|---|
| 27 | CC |
|---|
| 28 | CC OUTPUT : : no |
|---|
| 29 | CC ------ |
|---|
| 30 | CC |
|---|
| 31 | CC WORKSPACE : |
|---|
| 32 | CC --------- |
|---|
| 33 | CC |
|---|
| 34 | CC EXTERNAL : |
|---|
| 35 | CC -------- |
|---|
| 36 | CC SEAICE |
|---|
| 37 | CC WSJCD |
|---|
| 38 | CC WSEK |
|---|
| 39 | CC RHO |
|---|
| 40 | CC |
|---|
| 41 | CC MODIFICATIONS: |
|---|
| 42 | CC -------------- |
|---|
| 43 | CC original : 1988-07 E. MAIER-REIMER MPI HAMBURG |
|---|
| 44 | CC additions : 1999-10 O. Aumont and C. Le Quere |
|---|
| 45 | CC additions : 2001-03 0. Aumont and E. Kastenare : Changes in computation |
|---|
| 46 | CC of the export profiles for silicate and calcite |
|---|
| 47 | CC |
|---|
| 48 | CC REFERENCE for biology: |
|---|
| 49 | CC ---------------------- |
|---|
| 50 | CC |
|---|
| 51 | CC DEGENS, E.T, S. KEMPE, AND A. SPITZY (1984) |
|---|
| 52 | CC CARBON DIOXIDE: A BIOGEOCHEMICAL PORTRAIT. |
|---|
| 53 | CC IN: THE HANDBOOK OF ENVIRONMENTAL CHEMISTRY, VOLUME 1/ |
|---|
| 54 | CC PART C, O. HUTZINGER, ED., SPRINGER-VERLAG, BERLIN, |
|---|
| 55 | CC HEIDELBERG, PP. 127-215. |
|---|
| 56 | CC |
|---|
| 57 | CC DUGDALE. R.C. (1967) |
|---|
| 58 | CC NUTRIENT LIMITATION IN THE SEA: DYNAMICS, IDENTIFICATION |
|---|
| 59 | CC AND SIGNIFICANCE. |
|---|
| 60 | CC LIMNOLOGY AND OCEANOGRAPHY, VOL.12, 685-695. |
|---|
| 61 | CC |
|---|
| 62 | CC PARSONS, T.R., AND M. TAKAHASHI (1973) |
|---|
| 63 | CC BIOLOGICAL OCEANOGRAPHIC PROCESSES. |
|---|
| 64 | CC PERGAMON PRESS, 186 PP. |
|---|
| 65 | CC |
|---|
| 66 | CC TAKAHASHI, T., W.S. BROECKER, AND S. LANGER (1985) |
|---|
| 67 | CC REDFIELD RATIO BASED ON CHEMICAL DATA FROM ISOPYCNAL |
|---|
| 68 | CC SURFACES. |
|---|
| 69 | CC JOURNAL OF GEOPHYSICAL RESEARCH, 90(C4), 6907-6924. |
|---|
| 70 | CC |
|---|
| 71 | CC REFERENCE for chemistry: |
|---|
| 72 | CC ----------------------- |
|---|
| 73 | CC |
|---|
| 74 | CC BERNER, R. A. (1976) |
|---|
| 75 | CC THE SOLUBILITY OF CALCITE AND ARAGONITE IN SEA WATER |
|---|
| 76 | CC AT ATMOSPHERIC PRESSURE AND 34.5 O/OO SALINITY. |
|---|
| 77 | CC AMERICAN JOURNAL OF SCIENCE, VOL. 276, 713-730. |
|---|
| 78 | CC (K'SP(ARAGONITE)=1.45 K'SP(CALCITE)) |
|---|
| 79 | CC |
|---|
| 80 | CC BROECKER, W.S., D.W. SPENCER, AND H. CRAIG (1982) |
|---|
| 81 | CC GEOSECS PACIFIC EXPEDITION. VOL. 3.. HYDROGRAPHIC DATA |
|---|
| 82 | CC 1973-1974, SUPERINTENDANT OF DOCUMENTS, U.S. GOVERNMENT |
|---|
| 83 | CC PRINTING OFFICE, WASHINGTON, D.C., 137 PP.. |
|---|
| 84 | CC |
|---|
| 85 | CC CULBERSON, C.H., AND R.M. PYTKOWICZ (1968) |
|---|
| 86 | CC EFFECT ON PRESSURE ON CARBONIC ACID, BORIC ACID AND THE PH |
|---|
| 87 | CC IN SEA WATER. |
|---|
| 88 | CC LIMNOLOGY AND OCEANOGRAPHY, VOL. 13, 403-417. |
|---|
| 89 | CC |
|---|
| 90 | CC DICKSON, A.G., AND J.P. RILEY (1979) |
|---|
| 91 | CC THE ESTIMATION OF ACID DISSOCIATION CONSTANTS IN SEAWATER |
|---|
| 92 | CC MEDIA FROM POTENTIOMETRIC TITRATIONS WITH STRONG BASE. |
|---|
| 93 | CC I. THE IONIC PRODUCT OF WATER - KW. |
|---|
| 94 | CC MARINE CHEMISTRY, VOL. 7, 89-99. |
|---|
| 95 | CC |
|---|
| 96 | CC EDMOND, J.M., AND J.M.T.M. GIESKES (1970) |
|---|
| 97 | CC ON THE CALCULATION OF THE DEGREE OF SATURATION OF SEA WATER |
|---|
| 98 | CC WITH RESPECT TO CALCIUM CARBONATE UNDER IN SITU CONDITIONS. |
|---|
| 99 | CC GEOCHIM. ET COSMOCHIM. ACTA, 34, 1261-1291. |
|---|
| 100 | CC |
|---|
| 101 | CC INGLE, S.E. (1800) |
|---|
| 102 | CC SOLUBILITY OF CALCITE IN THE OCEAN. |
|---|
| 103 | CC MARINE CHEMISTRY, VOL. 3, 301-319. |
|---|
| 104 | CC |
|---|
| 105 | CC INGLE, S.E., C.H. CULBERSON, J.E. HAWLEY, AND R.M. PYTKOWICZ |
|---|
| 106 | CC (1973) THE SOLUBILITY OF CALCITE IN SEAWATER AT ATMOSPHERIC |
|---|
| 107 | CC PRESSURE AND 35 O/OO SALINITY. |
|---|
| 108 | CC MARINE CHEMISTRY, VOL. 1, 295-307. |
|---|
| 109 | CC |
|---|
| 110 | CC RILEY, J. P., AND G. SKIRROW, EDS. (1965) |
|---|
| 111 | CC CHEMICAL OCEANOGRAPHY. VOL. 1, 712 PP., ACADEMIC PRESS, |
|---|
| 112 | CC LONDON A. NEW YORK. |
|---|
| 113 | CC |
|---|
| 114 | CC SCARBOROUGH, J. (1958) NUMERICAL MATHEMATICAL ANALYSIS. |
|---|
| 115 | CC OXFORD UNIVERSITY PRESS, LONDON, 4TH ED., 576 PP.. |
|---|
| 116 | CC |
|---|
| 117 | CC WEISS, R. F. (1970) THE SOLUBILITY OF NITROGEN |
|---|
| 118 | CC OXYGEN AND ARGON IN WATER AND SEAWATER. |
|---|
| 119 | CC DEEP-SEA RESEARCH, VOL. 17, 721-735. |
|---|
| 120 | CC |
|---|
| 121 | CC WEISS, R. F. (1974) |
|---|
| 122 | CC CARBON DIOXIDE IN WATER AND SEAWATER: THE SOLUBILITY OF A |
|---|
| 123 | CC NON IDEAL GAS. MARINE CHEMISTRY, VOL. 2, 203-215. |
|---|
| 124 | CC |
|---|
| 125 | CC WOOSTER, W.S., A.J. LEE, AND G. DIETRICH (1969) |
|---|
| 126 | CC REDEFINITION OF SALINITY. Z. GEOPHYS., VOL.35, 611-613. |
|---|
| 127 | CC |
|---|
| 128 | CC BROECKER, W.S., D.W. SPENCER, AND H. CRAIG (1982) |
|---|
| 129 | CC GEOSECS PACIFIC EXPEDITION. VOL. 3.. HYDROGRAPHIC DATA |
|---|
| 130 | CC 1973-1974, SUPERINTENDANT OF DOCUMENTS, U.S. GOVERNMENT |
|---|
| 131 | CC PRINTING OFFICE, WASHINGTON, D.C., 137 PP.. |
|---|
| 132 | CC |
|---|
| 133 | CCC--------------------------------------------------------------------- |
|---|
| 134 | CC local declarations |
|---|
| 135 | CC ================== |
|---|
| 136 | INTEGER mo,ke1 |
|---|
| 137 | |
|---|
| 138 | REAL zdm0(jpi,jpj,jpk),zds0(jpi,jpj,jpk) |
|---|
| 139 | REAL zdc0(jpi,jpj,jpk),zrrc(jpi,jpj) |
|---|
| 140 | REAL zrro(jpi,jpj), zrrs(jpi,jpj), tobbb, tob, tun |
|---|
| 141 | REAL zfluo, zfluu |
|---|
| 142 | REAL ztest |
|---|
| 143 | C |
|---|
| 144 | C |
|---|
| 145 | C |
|---|
| 146 | C |
|---|
| 147 | C |
|---|
| 148 | C 1. initialization |
|---|
| 149 | C ----------------- |
|---|
| 150 | C |
|---|
| 151 | C initialisation of local variables |
|---|
| 152 | C |
|---|
| 153 | rfact = rdttra(1) * float(ndttrc) |
|---|
| 154 | rfactr = 1./rfact |
|---|
| 155 | WRITE(numout,*) ' Tracer time step=',rfact,' rdt=',rdt |
|---|
| 156 | C |
|---|
| 157 | CC |
|---|
| 158 | CC Initialize ice cover |
|---|
| 159 | CC |
|---|
| 160 | CC---------------------------------------------------------------------- |
|---|
| 161 | C |
|---|
| 162 | IF (icice .eq. 0) THEN |
|---|
| 163 | WRITE (numout,*) ' No Sea Ice (default value) ' |
|---|
| 164 | cicemo = 0.0 |
|---|
| 165 | ELSEIF (icice .eq. 1) THEN |
|---|
| 166 | WRITE (numout,*) ' Sea Ice from Reynolds surface data' |
|---|
| 167 | ELSEIF (icice .eq. 2) THEN |
|---|
| 168 | WRITE (numout,*) ' Sea Ice coverage from Walsh and Zwally' |
|---|
| 169 | CALL h3cice |
|---|
| 170 | ELSEIF (icice .eq. 3) THEN |
|---|
| 171 | WRITE (numout,*) ' Sea Ice Coverage from coupled run' |
|---|
| 172 | ENDIF |
|---|
| 173 | c |
|---|
| 174 | CC---------------------------------------------------------------------- |
|---|
| 175 | CC |
|---|
| 176 | CC Initialize gas exchange |
|---|
| 177 | CC |
|---|
| 178 | CC---------------------------------------------------------------------- |
|---|
| 179 | C |
|---|
| 180 | C |
|---|
| 181 | IF (igaswind .eq. 0) THEN |
|---|
| 182 | WRITE (numout,*) ' No winds read' |
|---|
| 183 | C |
|---|
| 184 | ELSEIF (igaswind .eq. 1) THEN |
|---|
| 185 | C |
|---|
| 186 | C Hellerman and Rosenstein according to Jean-Claude Dutay |
|---|
| 187 | C |
|---|
| 188 | WRITE (numout,*)' Interannual wind speed' |
|---|
| 189 | C |
|---|
| 190 | ELSEIF (igaswind .eq. 2) THEN |
|---|
| 191 | C |
|---|
| 192 | C Esbensen and Kushnir according to Bonnie Samuels |
|---|
| 193 | C |
|---|
| 194 | WRITE (numout,*)' Wind speed from Esbensen & Kushnir: ' |
|---|
| 195 | CALL h3cwin |
|---|
| 196 | DO mo=1,12 |
|---|
| 197 | #if defined key_vpp |
|---|
| 198 | CALL READ2S(900,kgwanmo(1,1,mo),jpi,jpj) |
|---|
| 199 | #else |
|---|
| 200 | READ (900) kgwanmo(:,:,mo) |
|---|
| 201 | #endif |
|---|
| 202 | ENDDO |
|---|
| 203 | C |
|---|
| 204 | ELSEIF (igaswind .eq. 3) THEN |
|---|
| 205 | C |
|---|
| 206 | WRITE (numout,*) 'Wind speed from coupled run' |
|---|
| 207 | C |
|---|
| 208 | C In case of offline simulations forced by coupled run output |
|---|
| 209 | C |
|---|
| 210 | ELSE |
|---|
| 211 | C |
|---|
| 212 | WRITE (numout,*) ' Variable igaswind invalid!' |
|---|
| 213 | WRITE (numout,*) ' Rerun model with igaswind = 0, 1, 2, 3' |
|---|
| 214 | STOP |
|---|
| 215 | C |
|---|
| 216 | ENDIF |
|---|
| 217 | C |
|---|
| 218 | C |
|---|
| 219 | C |
|---|
| 220 | CC---------------------------------------------------------------------- |
|---|
| 221 | CC |
|---|
| 222 | CC Initialize biological variables |
|---|
| 223 | CC |
|---|
| 224 | CC---------------------------------------------------------------------- |
|---|
| 225 | C |
|---|
| 226 | spocri = 0.003 |
|---|
| 227 | cristl = 0. |
|---|
| 228 | tobox = 50. |
|---|
| 229 | prorca = 0. |
|---|
| 230 | prcaca = 0. |
|---|
| 231 | silpro = 0. |
|---|
| 232 | #if defined key_trc_p3zd |
|---|
| 233 | sinking = 0. |
|---|
| 234 | nu = 0. |
|---|
| 235 | tortz = 0. |
|---|
| 236 | grazp = 0. |
|---|
| 237 | grazpoc = 0. |
|---|
| 238 | tortp = 0. |
|---|
| 239 | respp = 0. |
|---|
| 240 | respz = 0. |
|---|
| 241 | dipn = 55. |
|---|
| 242 | #endif |
|---|
| 243 | C |
|---|
| 244 | C Set biological ratios |
|---|
| 245 | C --------------------- |
|---|
| 246 | C |
|---|
| 247 | rno3 = (16.+2.)/122. |
|---|
| 248 | po4r = 1./122. |
|---|
| 249 | o2ut = 172./122. |
|---|
| 250 | sio2r = 0.75 |
|---|
| 251 | C |
|---|
| 252 | C Set fractionation factors of 13C, 14C |
|---|
| 253 | C ------------------------------------- |
|---|
| 254 | C |
|---|
| 255 | pdb = 0.011112 |
|---|
| 256 | plafr13 = 0.980 |
|---|
| 257 | C |
|---|
| 258 | C Set e-folding depth for penetration of newly formed biogenic poc and |
|---|
| 259 | c caco3 [cm] |
|---|
| 260 | C ---------------------------------------------------------------------- |
|---|
| 261 | c --------- |
|---|
| 262 | C |
|---|
| 263 | C |
|---|
| 264 | #if defined key_off_degrad |
|---|
| 265 | # if defined key_vpp |
|---|
| 266 | CALL READ3S(903,dmin3,jpi,jpj,jpk) |
|---|
| 267 | CALL READ3S(903,diss3,jpi,jpj,jpk) |
|---|
| 268 | CALL READ3S(903,disc3,jpi,jpj,jpk) |
|---|
| 269 | # else |
|---|
| 270 | READ(903) dmin3 |
|---|
| 271 | READ(903) diss3 |
|---|
| 272 | READ(903) disc3 |
|---|
| 273 | # endif |
|---|
| 274 | WRITE (numout,*) 'OK for read of deg.min' |
|---|
| 275 | #else |
|---|
| 276 | C |
|---|
| 277 | C Calculate vertical distribution of newly formed biogenic poc |
|---|
| 278 | C and caco3 particles in the water column in the case of |
|---|
| 279 | C max. possible bottom depth |
|---|
| 280 | C ------------------------------------------------------------ |
|---|
| 281 | C |
|---|
| 282 | C |
|---|
| 283 | zrro = 1. |
|---|
| 284 | zrrs = 1. |
|---|
| 285 | zrrc = 1. |
|---|
| 286 | |
|---|
| 287 | zdm0=0. |
|---|
| 288 | zdc0=0. |
|---|
| 289 | zds0=0. |
|---|
| 290 | |
|---|
| 291 | DO jk = jpkb+1,jpkm1 |
|---|
| 292 | DO jj = 1,jpj |
|---|
| 293 | DO ji = 1,jpi |
|---|
| 294 | |
|---|
| 295 | tun = fsdepw(ji,jj,jk+1) |
|---|
| 296 | tob = fsdepw(ji,jj,jk) |
|---|
| 297 | tobbb=fsdepw(ji,jj,jpkb+1) |
|---|
| 298 | zfluo = (1.E2/tob)**fluexp |
|---|
| 299 | zfluu = (1.E2/tun)**fluexp |
|---|
| 300 | IF (zfluo.gt.1.) zfluo = 1. |
|---|
| 301 | zdm0(ji,jj,jk) = zfluo-zfluu |
|---|
| 302 | zdc0(ji,jj,jk) = exp(-(tob-tobbb)/pendec)- |
|---|
| 303 | & exp(-(tun-tobbb)/pendec) |
|---|
| 304 | zds0(ji,jj,jk) = exp(-(tob-tobbb)/pendes)- |
|---|
| 305 | & exp(-(tun-tobbb)/pendes) |
|---|
| 306 | zrrs(ji,jj) = zrrs(ji,jj)-zds0(ji,jj,jk) |
|---|
| 307 | zrro(ji,jj) = zrro(ji,jj)-zdm0(ji,jj,jk) |
|---|
| 308 | zrrc(ji,jj) = zrrc(ji,jj)-zdc0(ji,jj,jk) |
|---|
| 309 | END DO |
|---|
| 310 | END DO |
|---|
| 311 | END DO |
|---|
| 312 | |
|---|
| 313 | DO jj = 1,jpj |
|---|
| 314 | DO ji = 1,jpi |
|---|
| 315 | zdc0(ji,jj,jpk) = zrrc(ji,jj) |
|---|
| 316 | zdm0(ji,jj,jpk) = zrro(ji,jj) |
|---|
| 317 | zds0(ji,jj,jpk) = zrrs(ji,jj) |
|---|
| 318 | END DO |
|---|
| 319 | END DO |
|---|
| 320 | C |
|---|
| 321 | C Calculate vertical distribution of newly formed biogenic poc and |
|---|
| 322 | C caco3 particles in the water column with realistic topography (lowest |
|---|
| 323 | c |
|---|
| 324 | C wet layer contains total fraction, which has passed the upper layers) |
|---|
| 325 | C ---------------------------------------------------------------------- |
|---|
| 326 | C |
|---|
| 327 | dminl = 0. |
|---|
| 328 | dissl = 0. |
|---|
| 329 | discl = 0. |
|---|
| 330 | C |
|---|
| 331 | dmin3 = zdm0 |
|---|
| 332 | diss3 = zds0 |
|---|
| 333 | disc3 = zdc0 |
|---|
| 334 | C |
|---|
| 335 | DO jk = 1,jpk |
|---|
| 336 | DO jj = 1,jpj |
|---|
| 337 | DO ji = 1,jpi |
|---|
| 338 | IF(tmask(ji,jj,jk).eq.0.) THEN |
|---|
| 339 | |
|---|
| 340 | dminl(ji,jj) = dminl(ji,jj)+dmin3(ji,jj,jk) |
|---|
| 341 | dissl(ji,jj) = dissl(ji,jj)+diss3(ji,jj,jk) |
|---|
| 342 | discl(ji,jj) = discl(ji,jj)+disc3(ji,jj,jk) |
|---|
| 343 | dmin3(ji,jj,jk) = 0.0 |
|---|
| 344 | diss3(ji,jj,jk) = 0.0 |
|---|
| 345 | disc3(ji,jj,jk) = 0.0 |
|---|
| 346 | C |
|---|
| 347 | ENDIF |
|---|
| 348 | ENDDO |
|---|
| 349 | ENDDO |
|---|
| 350 | ENDDO |
|---|
| 351 | C |
|---|
| 352 | C |
|---|
| 353 | DO jj = 1,jpj |
|---|
| 354 | DO ji = 1,jpi |
|---|
| 355 | IF (tmask(ji,jj,1).eq.0.) THEN |
|---|
| 356 | dmin3(ji,jj,1) = 0. |
|---|
| 357 | diss3(ji,jj,1) = 0. |
|---|
| 358 | disc3(ji,jj,1) = 0. |
|---|
| 359 | ENDIF |
|---|
| 360 | ENDDO |
|---|
| 361 | ENDDO |
|---|
| 362 | #endif |
|---|
| 363 | C |
|---|
| 364 | C |
|---|
| 365 | CC---------------------------------------------------------------------- |
|---|
| 366 | CC |
|---|
| 367 | CC Initialize chemical variables |
|---|
| 368 | CC |
|---|
| 369 | CC---------------------------------------------------------------------- |
|---|
| 370 | C |
|---|
| 371 | C set pre-industrial atmospheric [co2] (ppm) and o2/n2 ratio |
|---|
| 372 | C ---------------------------------------------------------- |
|---|
| 373 | C |
|---|
| 374 | atcco20 = 278. |
|---|
| 375 | atcox = 0.20946 |
|---|
| 376 | C |
|---|
| 377 | C Set half precision constants |
|---|
| 378 | C ---------------------------- |
|---|
| 379 | C |
|---|
| 380 | tenm7 = 10.**(-7.0) |
|---|
| 381 | smicr = 1.E-6 |
|---|
| 382 | thousi = 1./1000. |
|---|
| 383 | perc = 0.01 |
|---|
| 384 | fourth = 0.25 |
|---|
| 385 | third = 1./3. |
|---|
| 386 | half = 0.5 |
|---|
| 387 | one = 1. |
|---|
| 388 | two = 2. |
|---|
| 389 | ten = 10. |
|---|
| 390 | C |
|---|
| 391 | C Set lower/upper limits for temperature and salinity |
|---|
| 392 | C --------------------------------------------------- |
|---|
| 393 | C |
|---|
| 394 | tfree = -1.9 |
|---|
| 395 | tboil = 30. |
|---|
| 396 | sweet = 20. |
|---|
| 397 | brine = 40. |
|---|
| 398 | C |
|---|
| 399 | salchl = 1./1.80655 |
|---|
| 400 | temzer = 273.16 |
|---|
| 401 | calcon = 1.03E-2 |
|---|
| 402 | C |
|---|
| 403 | C Set coefficients for apparent solubility equilibrium |
|---|
| 404 | C of calcite (Ingle, 1800, eq. 6) |
|---|
| 405 | C ---------------------------------------------------- |
|---|
| 406 | C |
|---|
| 407 | akcc1 = -34.452 |
|---|
| 408 | akcc2 = -39.866 |
|---|
| 409 | akcc3 = 110.21 |
|---|
| 410 | akcc4 = -7.5752E-6 |
|---|
| 411 | C |
|---|
| 412 | arafra = 0. |
|---|
| 413 | calfra = 1.-arafra |
|---|
| 414 | sucall = arafra+calfra |
|---|
| 415 | aracal = arafra*1.45+calfra |
|---|
| 416 | C |
|---|
| 417 | C Set coefficients for seawater pressure correction |
|---|
| 418 | C ------------------------------------------------- |
|---|
| 419 | C |
|---|
| 420 | devk1 = 24.2 |
|---|
| 421 | devk2 = 16.4 |
|---|
| 422 | devkb = 27.5 |
|---|
| 423 | devk1t = 0.085 |
|---|
| 424 | devk2t = 0.04 |
|---|
| 425 | devkbt = 0.095 |
|---|
| 426 | C |
|---|
| 427 | devkst = 0.23 |
|---|
| 428 | devks = 32.8*arafra+35.4*calfra |
|---|
| 429 | C |
|---|
| 430 | C Set universal gas constants |
|---|
| 431 | C --------------------------- |
|---|
| 432 | C |
|---|
| 433 | rgas = 83.143 |
|---|
| 434 | oxyco = 1./22.4144 |
|---|
| 435 | C |
|---|
| 436 | C Set boron constants |
|---|
| 437 | C ------------------- |
|---|
| 438 | C |
|---|
| 439 | bor1 = 0.00023 |
|---|
| 440 | bor2 = 1./10.82 |
|---|
| 441 | C |
|---|
| 442 | C Set volumetric solubility constants for co2 in ml/l (Weiss, 1974) |
|---|
| 443 | C ----------------------------------------------------------------- |
|---|
| 444 | C |
|---|
| 445 | c00 = -58.0931 |
|---|
| 446 | c01 = 90.5069 |
|---|
| 447 | c02 = 22.2940 |
|---|
| 448 | c03 = 0.027766 |
|---|
| 449 | c04 = -0.025888 |
|---|
| 450 | c05 = 0.0050578 |
|---|
| 451 | C |
|---|
| 452 | C Set coeff. for 1. dissoc. of carbonic acid (Edmond and Gieskes, 1970) |
|---|
| 453 | C --------------------------------------------------------------------- |
|---|
| 454 | C |
|---|
| 455 | c10 = -2307.1266 |
|---|
| 456 | c11 = 2.83655 |
|---|
| 457 | c12 = -1.5529413 |
|---|
| 458 | c13 = -4.0484 |
|---|
| 459 | c14 = -0.20760841 |
|---|
| 460 | c15 = 0.08468345 |
|---|
| 461 | c16 = -0.00654208 |
|---|
| 462 | c17 = -0.001005 |
|---|
| 463 | C |
|---|
| 464 | C Set coeff. for 2. dissoc. of carbonic acid (Edmond and Gieskes, 1970) |
|---|
| 465 | C --------------------------------------------------------------------- |
|---|
| 466 | C |
|---|
| 467 | c20 = -3351.6106 |
|---|
| 468 | c21 = -9.226508 |
|---|
| 469 | c22 = -0.2005743 |
|---|
| 470 | c23 = -23.9722 |
|---|
| 471 | c24 = -0.106901773 |
|---|
| 472 | c25 = 0.1130822 |
|---|
| 473 | c26 = -0.00846934 |
|---|
| 474 | c27 = -0.001005 |
|---|
| 475 | C |
|---|
| 476 | C Set coeff. for 1. dissoc. of boric acid (Edmond and Gieskes, 1970) |
|---|
| 477 | C ------------------------------------------------------------------ |
|---|
| 478 | C |
|---|
| 479 | cb0 = -8966.90 |
|---|
| 480 | cb1 = -2890.53 |
|---|
| 481 | cb2 = -77.942 |
|---|
| 482 | cb3 = 1.728 |
|---|
| 483 | cb4 = -0.0996 |
|---|
| 484 | cb5 = 148.0248 |
|---|
| 485 | cb6 = 137.1942 |
|---|
| 486 | cb7 = 1.62142 |
|---|
| 487 | cb8 = -24.4344 |
|---|
| 488 | cb9 = -25.085 |
|---|
| 489 | cb10 = -0.2474 |
|---|
| 490 | cb11 = 0.053105 |
|---|
| 491 | C |
|---|
| 492 | C Set coeff. for dissoc. of water (Dickson and Riley, 1979, |
|---|
| 493 | C eq. 7, coefficient cw2 corrected from 0.9415 to 0.09415 |
|---|
| 494 | C after pers. commun. to B. Bacastow, 1988) |
|---|
| 495 | C --------------------------------------------------------- |
|---|
| 496 | C |
|---|
| 497 | cw0 = -13847.26 |
|---|
| 498 | cw1 = 148.9652 |
|---|
| 499 | cw2 = -23.6521 |
|---|
| 500 | cw3 = 118.67 |
|---|
| 501 | cw4 = -5.977 |
|---|
| 502 | cw5 = 1.0495 |
|---|
| 503 | cw6 = -0.01615 |
|---|
| 504 | C |
|---|
| 505 | C Set volumetric solubility constants for o2 in ml/l (Weiss, 1970) |
|---|
| 506 | C ---------------------------------------------------------------- |
|---|
| 507 | C |
|---|
| 508 | ox0 = -58.3877 |
|---|
| 509 | ox1 = 85.8079 |
|---|
| 510 | ox2 = 23.8439 |
|---|
| 511 | ox3 = -0.034892 |
|---|
| 512 | ox4 = 0.015568 |
|---|
| 513 | ox5 = -0.0019387 |
|---|
| 514 | C |
|---|
| 515 | #if defined key_off_degrad |
|---|
| 516 | C |
|---|
| 517 | C Read volume for degraded regions (DEGINIT) |
|---|
| 518 | C ------------------------------------------ |
|---|
| 519 | C |
|---|
| 520 | # if defined key_vpp |
|---|
| 521 | CALL READ3S(902,facvol,jpi,jpj,jpk) |
|---|
| 522 | # else |
|---|
| 523 | READ (902) facvol |
|---|
| 524 | # endif |
|---|
| 525 | #endif |
|---|
| 526 | C |
|---|
| 527 | C CALCUL DU MASK DE COTE |
|---|
| 528 | C |
|---|
| 529 | cmask=0. |
|---|
| 530 | do ji=2,jpi-1 |
|---|
| 531 | do jj=2,jpj-1 |
|---|
| 532 | if (tmask(ji,jj,1).eq.1) then |
|---|
| 533 | ztest=tmask(ji+1,jj,1)*tmask(ji-1,jj,1)*tmask(ji,jj+1,1) |
|---|
| 534 | . *tmask(ji,jj-1,1) |
|---|
| 535 | if (ztest.eq.0) cmask(ji,jj)=1. |
|---|
| 536 | endif |
|---|
| 537 | end do |
|---|
| 538 | end do |
|---|
| 539 | |
|---|
| 540 | cmask(1,:)=cmask(jpi-1,:) |
|---|
| 541 | cmask(jpi,:)=cmask(2,:) |
|---|
| 542 | C |
|---|
| 543 | C CALCUL DE LA SURFACE COTIERE |
|---|
| 544 | C |
|---|
| 545 | do ji=2,jpi-1 |
|---|
| 546 | do jj=2,jpj-1 |
|---|
| 547 | areacot=areacot+e1t(ji,jj)*e2t(ji,jj)*cmask(ji,jj) |
|---|
| 548 | end do |
|---|
| 549 | end do |
|---|
| 550 | |
|---|
| 551 | C |
|---|
| 552 | C |
|---|
| 553 | CALL h3cche |
|---|
| 554 | WRITE(numout,*) ' Initialisation of HAMOCC3 done' |
|---|
