Changeset 7894 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90
- Timestamp:
- 2017-04-11T13:58:38+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/sms_medusa.F90
r7766 r7894 49 49 REAL(wp) :: xthetam !: maximum Chl to C ratio for non-diatoms 50 50 REAL(wp) :: xthetamd !: maximum Chl to C ratio for diatoms 51 REAL(wp) :: jq10 !: specific Q10 value (jphy==2)51 REAL(wp) :: xq10 !: specific Q10 value (jphy==2) 52 52 !! 53 53 !! Diatom silicon parameters … … 239 239 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: za_dms_din !: 2D avg DIN (after) 240 240 !! 241 !! 2D fields needing to be knows at first tstp for coupling with atm - UKE MS(Jpalm,14-06-2016)241 !! 2D fields needing to be knows at first tstp for coupling with atm - UKESM (Jpalm,14-06-2016) 242 242 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: zb_co2_flx !: 2D avg fx co2 (before) 243 243 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: zn_co2_flx !: 2D avg fx co2 (now) … … 272 272 !! AXY (19/07/12): add this to permit river fluxes to be added below top box 273 273 REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:) :: friver_dep !: where river fluxes added 274 275 #if defined key_roam276 !!----------------------------------------------------------------------277 !! Atmospheric pCO2 data (1859 to 2100 inclusive)278 !!----------------------------------------------------------------------279 !!280 REAL(wp), DIMENSION(242) :: hist_pco2 !: pCO2281 282 # if defined key_rcp26283 !! UKMO, run AJKKH + KAAEC, RCP 2.6, pCO2 time evolution284 DATA hist_pco2 / 286.0230, 286.1730, 286.3230, 286.4480, 286.5730, &285 & 286.7230, 286.8480, 286.9480, 287.0480, 287.1730, &286 & 287.3230, 287.4730, 287.6480, 287.8480, 288.0730, &287 & 288.3480, 288.6480, 288.9730, 289.3470, 289.7470, &288 & 290.1730, 290.6470, 291.1470, 291.6220, 292.0720, &289 & 292.5220, 292.9220, 293.2470, 293.5220, 293.7470, &290 & 293.9470, 294.1220, 294.2720, 294.4220, 294.5470, &291 & 294.6470, 294.7470, 294.8470, 294.9710, 295.1710, &292 & 295.4460, 295.7470, 296.0720, 296.4210, 296.7710, &293 & 297.1460, 297.5710, 298.0210, 298.4460, 298.8460, &294 & 299.2460, 299.6450, 300.0210, 300.3710, 300.7200, &295 & 301.0450, 301.3460, 301.6710, 302.0200, 302.3450, &296 & 302.6450, 302.9700, 303.3450, 303.7200, 304.0700, &297 & 304.4700, 304.9200, 305.3440, 305.7700, 306.2450, &298 & 306.7190, 307.1700, 307.6440, 308.1190, 308.5440, &299 & 308.9440, 309.3440, 309.6940, 309.9440, 310.1190, &300 & 310.2440, 310.3190, 310.3190, 310.2440, 310.1440, &301 & 310.0690, 310.0440, 310.0690, 310.1440, 310.2690, &302 & 310.4440, 310.6940, 311.0430, 311.4440, 311.8690, &303 & 312.3680, 312.9430, 313.5430, 314.1680, 314.7900, &304 & 315.4430, 316.2150, 317.0170, 317.7370, 318.3400, &305 & 318.8680, 319.5900, 320.5890, 321.5470, 322.5770, &306 & 323.8440, 324.9260, 325.7960, 327.0810, 328.6180, &307 & 329.6830, 330.5250, 331.6880, 333.2120, 334.7870, &308 & 336.4640, 338.2990, 339.6660, 340.7310, 342.1360, &309 & 343.7200, 345.2200, 346.7350, 348.5820, 350.6740, &310 & 352.4230, 353.7910, 354.9530, 355.8210, 356.7130, &311 & 358.0630, 359.7720, 361.3970, 363.0900, 365.2560, &312 & 367.2810, 368.7980, 370.4000, 372.4550, 374.6920, &313 & 376.7440, 378.7440, 380.7580, 382.7080, 384.7300, &314 & 386.9310, 389.2150, 391.4910, 393.7710, 396.0460, &315 & 398.3240, 400.6080, 402.8950, 405.1780, 407.4550, &316 & 409.7260, 411.9930, 414.2500, 416.4410, 418.5280, &317 & 420.5250, 422.4390, 424.2720, 426.0200, 427.6750, &318 & 429.2360, 430.7050, 432.0850, 433.3580, 434.5140, &319 & 435.5740, 436.5490, 437.4420, 438.2550, 438.9810, &320 & 439.6110, 440.1430, 440.5770, 440.9450, 441.2660, &321 & 441.5410, 441.7840, 442.0050, 442.2040, 442.3780, &322 & 442.5210, 442.6200, 442.6720, 442.6810, 442.6540, &323 & 442.5830, 442.4670, 442.3270, 442.1680, 441.9960, &324 & 441.8060, 441.5930, 441.3440, 441.0540, 440.7230, &325 & 440.3510, 439.9300, 439.4650, 438.9730, 438.4630, &326 & 437.9400, 437.4020, 436.8400, 436.2640, 435.6850, &327 & 435.1030, 434.5160, 433.9170, 433.3060, 432.7010, &328 & 432.1110, 431.5380, 430.9810, 430.4320, 429.8860, &329 & 429.3370, 428.7810, 428.2220, 427.6490, 427.0660, &330 & 426.4890, 425.9270, 425.3840, 424.8610, 424.3540, &331 & 423.8540, 423.3540, 422.8530, 422.3510, 421.8410, &332 & 421.3250, 420.8190 /333 # else334 !! UKMO, run AJKKH + KAAEF, RCP 8.5, pCO2 time evolution335 DATA hist_pco2 / 286.0230, 286.1730, 286.3230, 286.4480, 286.5730, &336 & 286.7230, 286.8480, 286.9480, 287.0480, 287.1730, &337 & 287.3230, 287.4730, 287.6480, 287.8480, 288.0730, &338 & 288.3480, 288.6480, 288.9730, 289.3470, 289.7470, &339 & 290.1730, 290.6470, 291.1470, 291.6220, 292.0720, &340 & 292.5220, 292.9220, 293.2470, 293.5220, 293.7470, &341 & 293.9470, 294.1220, 294.2720, 294.4220, 294.5470, &342 & 294.6470, 294.7470, 294.8470, 294.9710, 295.1710, &343 & 295.4460, 295.7470, 296.0720, 296.4210, 296.7710, &344 & 297.1460, 297.5710, 298.0210, 298.4460, 298.8460, &345 & 299.2460, 299.6450, 300.0210, 300.3710, 300.7200, &346 & 301.0450, 301.3460, 301.6710, 302.0200, 302.3450, &347 & 302.6450, 302.9700, 303.3450, 303.7200, 304.0700, &348 & 304.4700, 304.9200, 305.3440, 305.7700, 306.2450, &349 & 306.7190, 307.1700, 307.6440, 308.1190, 308.5440, &350 & 308.9440, 309.3440, 309.6940, 309.9440, 310.1190, &351 & 310.2440, 310.3190, 310.3190, 310.2440, 310.1440, &352 & 310.0690, 310.0440, 310.0690, 310.1440, 310.2690, &353 & 310.4440, 310.6940, 311.0430, 311.4440, 311.8690, &354 & 312.3680, 312.9430, 313.5430, 314.1680, 314.7900, &355 & 315.4430, 316.2150, 317.0170, 317.7370, 318.3400, &356 & 318.8680, 319.5900, 320.5890, 321.5470, 322.5770, &357 & 323.8440, 324.9260, 325.7960, 327.0810, 328.6180, &358 & 329.6830, 330.5250, 331.6880, 333.2120, 334.7870, &359 & 336.4640, 338.2990, 339.6660, 340.7310, 342.1360, &360 & 343.7200, 345.2200, 346.7350, 348.5820, 350.6740, &361 & 352.4230, 353.7910, 354.9530, 355.8210, 356.7130, &362 & 358.0630, 359.7720, 361.3970, 363.0900, 365.2560, &363 & 367.2810, 368.7980, 370.4000, 372.4550, 374.6920, &364 & 376.7440, 378.7440, 380.7580, 382.7080, 384.7300, &365 & 386.9420, 389.2540, 391.5670, 393.9370, 396.3920, &366 & 398.9320, 401.5550, 404.2550, 407.0220, 409.8530, &367 & 412.7470, 415.7050, 418.7210, 421.7880, 424.9180, &368 & 428.1200, 431.3970, 434.7470, 438.1650, 441.6410, &369 & 445.1700, 448.7530, 452.3920, 456.0950, 459.8810, &370 & 463.7680, 467.7660, 471.8750, 476.0960, 480.4210, &371 & 484.8390, 489.3470, 493.9430, 498.6400, 503.4380, &372 & 508.3410, 513.3630, 518.5160, 523.8050, 529.2290, &373 & 534.7780, 540.4450, 546.2230, 552.1120, 558.1110, &374 & 564.2110, 570.4130, 576.7390, 583.1990, 589.7980, &375 & 596.5390, 603.4110, 610.4060, 617.4940, 624.6500, &376 & 631.8800, 639.1750, 646.5360, 653.9800, 661.5230, &377 & 669.1840, 676.9570, 684.8290, 692.7790, 700.7690, &378 & 708.8050, 716.8870, 725.0020, 733.1770, 741.3900, &379 & 749.6700, 758.0480, 766.5050, 775.0350, 783.6110, &380 & 792.2200, 800.8740, 809.5680, 818.2760, 827.0090, &381 & 835.8020, 844.6550, 853.5730, 862.5690, 871.6190, &382 & 880.7020, 889.8240, 898.9590, 908.1270, 917.3080, &383 & 926.4960, 935.7040 /384 # endif385 #endif386 274 387 275 !!---------------------------------------------------------------------- … … 481 369 & za_dms_din(jpi,jpj) , STAT=ierr(4) ) 482 370 !* 2D fields needing to be knows at first tstp for coupling with atm - 483 !UKE MSi(Jpalm,14-06-2016)371 !UKESM (Jpalm,14-06-2016) 484 372 ALLOCATE( zb_co2_flx(jpi,jpj) , zn_co2_flx(jpi,jpj) , & 485 373 & za_co2_flx(jpi,jpj) , &
Note: See TracChangeset
for help on using the changeset viewer.