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