Changeset 9502 for branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90
- Timestamp:
- 2018-04-25T10:24:20+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90
r9114 r9502 264 264 # endif 265 265 IF ( med_diag%INVTN%dgsave ) THEN 266 CALL lbc_lnk( ftot_n(:,:),'T',1.) 266 267 CALL iom_put( "INVTN" , ftot_n ) 267 268 ENDIF 268 269 IF ( med_diag%INVTSI%dgsave ) THEN 270 CALL lbc_lnk( ftot_si(:,:),'T',1.) 269 271 CALL iom_put( "INVTSI" , ftot_si ) 270 272 ENDIF 271 273 IF ( med_diag%INVTFE%dgsave ) THEN 274 CALL lbc_lnk( ftot_fe(:,:),'T',1.) 272 275 CALL iom_put( "INVTFE" , ftot_fe ) 273 276 ENDIF 274 277 IF ( med_diag%ML_PRN%dgsave ) THEN 278 CALL lbc_lnk( fprn_ml(:,:),'T',1.) 275 279 CALL iom_put( "ML_PRN" , fprn_ml ) 276 280 ENDIF 277 281 IF ( med_diag%ML_PRD%dgsave ) THEN 282 CALL lbc_lnk( fprd_ml(:,:),'T',1.) 278 283 CALL iom_put( "ML_PRD" , fprd_ml ) 279 284 ENDIF 280 285 IF ( med_diag%OCAL_LVL%dgsave ) THEN 286 CALL lbc_lnk( fccd(:,:),'T',1.) 281 287 CALL iom_put( "OCAL_LVL" , fccd ) 282 288 ENDIF 283 289 IF ( med_diag%CHL_MLD%dgsave ) THEN 290 CALL lbc_lnk( fchl_ml(:,:),'T',1.) 284 291 CALL iom_put( "CHL_MLD" , fchl_ml ) 285 292 ENDIF 286 293 IF (lk_oasis) THEN 287 294 IF ( med_diag%CHL_CPL%dgsave ) THEN 295 CALL lbc_lnk( chloro_out_cpl(:,:),'T',1.) 288 296 CALL iom_put( "CHL_CPL" , chloro_out_cpl ) 289 297 ENDIF 290 298 ENDIF 291 299 IF ( med_diag%PN_JLIM%dgsave ) THEN 300 CALL lbc_lnk( fjln2d(:,:),'T',1.) 292 301 CALL iom_put( "PN_JLIM" , fjln2d ) 293 302 DEALLOCATE( fjln2d ) 294 303 ENDIF 295 304 IF ( med_diag%PN_NLIM%dgsave ) THEN 305 CALL lbc_lnk( fnln2d(:,:),'T',1.) 296 306 CALL iom_put( "PN_NLIM" , fnln2d ) 297 307 DEALLOCATE( fnln2d ) 298 308 ENDIF 299 309 IF ( med_diag%PN_FELIM%dgsave ) THEN 310 CALL lbc_lnk( ffln2d(:,:),'T',1.) 300 311 CALL iom_put( "PN_FELIM" , ffln2d ) 301 312 DEALLOCATE( ffln2d ) 302 313 ENDIF 303 314 IF ( med_diag%PD_JLIM%dgsave ) THEN 315 CALL lbc_lnk( fjld2d(:,:),'T',1.) 304 316 CALL iom_put( "PD_JLIM" , fjld2d ) 305 317 DEALLOCATE( fjld2d ) 306 318 ENDIF 307 319 IF ( med_diag%PD_NLIM%dgsave ) THEN 320 CALL lbc_lnk( fnld2d(:,:),'T',1.) 308 321 CALL iom_put( "PD_NLIM" , fnld2d ) 309 322 DEALLOCATE( fnld2d ) 310 323 ENDIF 311 324 IF ( med_diag%PD_FELIM%dgsave ) THEN 325 CALL lbc_lnk( ffld2d(:,:),'T',1.) 312 326 CALL iom_put( "PD_FELIM" , ffld2d ) 313 327 DEALLOCATE( ffld2d ) 314 328 ENDIF 315 329 IF ( med_diag%PD_SILIM%dgsave ) THEN 330 CALL lbc_lnk( fsld2d2(:,:),'T',1.) 316 331 CALL iom_put( "PD_SILIM" , fsld2d2 ) 317 332 DEALLOCATE( fsld2d2 ) 318 333 ENDIF 319 334 IF ( med_diag%PDSILIM2%dgsave ) THEN 335 CALL lbc_lnk( fsld2d(:,:),'T',1.) 320 336 CALL iom_put( "PDSILIM2" , fsld2d ) 321 337 DEALLOCATE( fsld2d ) 322 338 ENDIF 323 339 IF ( med_diag%INTFLX_N%dgsave ) THEN 340 CALL lbc_lnk( fflx_n(:,:),'T',1.) 324 341 CALL iom_put( "INTFLX_N" , fflx_n ) 325 342 ENDIF 326 343 IF ( med_diag%INTFLX_SI%dgsave ) THEN 344 CALL lbc_lnk( fflx_si(:,:),'T',1.) 327 345 CALL iom_put( "INTFLX_SI" , fflx_si ) 328 346 ENDIF 329 347 IF ( med_diag%INTFLX_FE%dgsave ) THEN 348 CALL lbc_lnk( fflx_fe(:,:),'T',1.) 330 349 CALL iom_put( "INTFLX_FE" , fflx_fe ) 331 350 ENDIF 332 351 IF ( med_diag%INT_PN%dgsave ) THEN 352 CALL lbc_lnk( ftot_pn(:,:),'T',1.) 333 353 CALL iom_put( "INT_PN" , ftot_pn ) 334 354 ENDIF 335 355 IF ( med_diag%INT_PD%dgsave ) THEN 356 CALL lbc_lnk( ftot_pd(:,:),'T',1.) 336 357 CALL iom_put( "INT_PD" , ftot_pd ) 337 358 ENDIF 338 359 IF ( med_diag%INT_ZMI%dgsave ) THEN 360 CALL lbc_lnk( ftot_zmi(:,:),'T',1.) 339 361 CALL iom_put( "INT_ZMI" , ftot_zmi ) 340 362 ENDIF 341 363 IF ( med_diag%INT_ZME%dgsave ) THEN 364 CALL lbc_lnk( ftot_zme(:,:),'T',1.) 342 365 CALL iom_put( "INT_ZME" , ftot_zme ) 343 366 ENDIF 344 367 IF ( med_diag%INT_DET%dgsave ) THEN 368 CALL lbc_lnk( ftot_det(:,:),'T',1.) 345 369 CALL iom_put( "INT_DET" , ftot_det ) 346 370 ENDIF 347 371 IF ( med_diag%INT_DTC%dgsave ) THEN 372 CALL lbc_lnk( ftot_dtc(:,:),'T',1.) 348 373 CALL iom_put( "INT_DTC" , ftot_dtc ) 349 374 ENDIF 350 375 IF ( med_diag%BEN_N%dgsave ) THEN 376 CALL lbc_lnk( za_sed_n(:,:),'T',1.) 351 377 CALL iom_put( "BEN_N" , za_sed_n ) 352 378 ENDIF 353 379 IF ( med_diag%BEN_FE%dgsave ) THEN 380 CALL lbc_lnk( za_sed_fe(:,:),'T',1.) 354 381 CALL iom_put( "BEN_FE" , za_sed_fe ) 355 382 ENDIF 356 383 IF ( med_diag%BEN_C%dgsave ) THEN 384 CALL lbc_lnk( za_sed_c(:,:),'T',1.) 357 385 CALL iom_put( "BEN_C" , za_sed_c ) 358 386 ENDIF 359 387 IF ( med_diag%BEN_SI%dgsave ) THEN 388 CALL lbc_lnk( za_sed_si(:,:),'T',1.) 360 389 CALL iom_put( "BEN_SI" , za_sed_si ) 361 390 ENDIF 362 391 IF ( med_diag%BEN_CA%dgsave ) THEN 392 CALL lbc_lnk( za_sed_ca(:,:),'T',1.) 363 393 CALL iom_put( "BEN_CA" , za_sed_ca ) 364 394 ENDIF 365 395 IF ( med_diag%RUNOFF%dgsave ) THEN 396 CALL lbc_lnk( f_runoff(:,:),'T',1.) 366 397 CALL iom_put( "RUNOFF" , f_runoff ) 367 398 ENDIF 368 399 # if defined key_roam 369 400 IF ( med_diag%N_PROD%dgsave ) THEN 401 CALL lbc_lnk( fnit_prod(:,:),'T',1.) 370 402 CALL iom_put( "N_PROD" , fnit_prod ) 371 403 ENDIF 372 404 IF ( med_diag%N_CONS%dgsave ) THEN 405 CALL lbc_lnk( fnit_cons(:,:),'T',1.) 373 406 CALL iom_put( "N_CONS" , fnit_cons ) 374 407 ENDIF 375 408 IF ( med_diag%C_PROD%dgsave ) THEN 409 CALL lbc_lnk( fcar_prod(:,:),'T',1.) 376 410 CALL iom_put( "C_PROD" , fcar_prod ) 377 411 ENDIF 378 412 IF ( med_diag%C_CONS%dgsave ) THEN 413 CALL lbc_lnk( fcar_cons(:,:),'T',1.) 379 414 CALL iom_put( "C_CONS" , fcar_cons ) 380 415 ENDIF 381 416 IF ( med_diag%O2_PROD%dgsave ) THEN 417 CALL lbc_lnk( foxy_prod(:,:),'T',1.) 382 418 CALL iom_put( "O2_PROD" , foxy_prod ) 383 419 ENDIF 384 420 IF ( med_diag%O2_CONS%dgsave ) THEN 421 CALL lbc_lnk( foxy_cons(:,:),'T',1.) 385 422 CALL iom_put( "O2_CONS" , foxy_cons ) 386 423 ENDIF 387 424 IF ( med_diag%O2_ANOX%dgsave ) THEN 425 CALL lbc_lnk( foxy_anox(:,:),'T',1.) 388 426 CALL iom_put( "O2_ANOX" , foxy_anox ) 389 427 ENDIF 390 428 IF ( med_diag%INVTC%dgsave ) THEN 429 CALL lbc_lnk( ftot_c(:,:),'T',1.) 391 430 CALL iom_put( "INVTC" , ftot_c ) 392 431 ENDIF 393 432 IF ( med_diag%INVTALK%dgsave ) THEN 433 CALL lbc_lnk( ftot_a(:,:),'T',1.) 394 434 CALL iom_put( "INVTALK" , ftot_a ) 395 435 ENDIF 396 436 IF ( med_diag%INVTO2%dgsave ) THEN 437 CALL lbc_lnk( ftot_o2(:,:),'T',1.) 397 438 CALL iom_put( "INVTO2" , ftot_o2 ) 398 439 ENDIF 399 440 IF ( med_diag%COM_RESP%dgsave ) THEN 441 CALL lbc_lnk( fcomm_resp(:,:),'T',1.) 400 442 CALL iom_put( "COM_RESP" , fcomm_resp ) 401 443 ENDIF … … 405 447 !!-------------------------------------------- 406 448 IF ( med_diag%PRN%dgsave ) THEN 449 CALL lbc_lnk( fprn2d(:,:),'T',1.) 407 450 CALL iom_put( "PRN" , fprn2d ) 408 451 DEALLOCATE( fprn2d ) 409 452 ENDIF 410 453 IF ( med_diag%MPN%dgsave ) THEN 454 CALL lbc_lnk( fdpn2d(:,:),'T',1.) 411 455 CALL iom_put( "MPN" ,fdpn2d ) 412 456 DEALLOCATE( fdpn2d ) 413 457 ENDIF 414 458 IF ( med_diag%PRD%dgsave ) THEN 459 CALL lbc_lnk( fprd2d(:,:),'T',1.) 415 460 CALL iom_put( "PRD" ,fprd2d ) 416 461 DEALLOCATE( fprd2d ) 417 462 ENDIF 418 463 IF( med_diag%MPD%dgsave ) THEN 464 CALL lbc_lnk( fdpd2d(:,:),'T',1.) 419 465 CALL iom_put( "MPD" , fdpd2d ) 420 466 DEALLOCATE( fdpd2d ) 421 467 ENDIF 422 468 ! IF( med_diag%DSED%dgsave ) THEN 469 ! CALL lbc_lnk( ftot_n(:,:),'T',1.) 423 470 ! CALL iom_put( "DSED" , ftot_n ) 424 471 ! ENDIF 425 472 IF( med_diag%OPAL%dgsave ) THEN 473 CALL lbc_lnk( fprds2d(:,:),'T',1.) 426 474 CALL iom_put( "OPAL" , fprds2d ) 427 475 DEALLOCATE( fprds2d ) 428 476 ENDIF 429 477 IF( med_diag%OPALDISS%dgsave ) THEN 478 CALL lbc_lnk( fsdiss2d(:,:),'T',1.) 430 479 CALL iom_put( "OPALDISS" , fsdiss2d ) 431 480 DEALLOCATE( fsdiss2d ) 432 481 ENDIF 433 482 IF( med_diag%GMIPn%dgsave ) THEN 483 CALL lbc_lnk( fgmipn2d(:,:),'T',1.) 434 484 CALL iom_put( "GMIPn" , fgmipn2d ) 435 485 DEALLOCATE( fgmipn2d ) 436 486 ENDIF 437 487 IF( med_diag%GMID%dgsave ) THEN 488 CALL lbc_lnk( fgmid2d(:,:),'T',1.) 438 489 CALL iom_put( "GMID" , fgmid2d ) 439 490 DEALLOCATE( fgmid2d ) 440 491 ENDIF 441 492 IF( med_diag%MZMI%dgsave ) THEN 493 CALL lbc_lnk( fdzmi2d(:,:),'T',1.) 442 494 CALL iom_put( "MZMI" , fdzmi2d ) 443 495 DEALLOCATE( fdzmi2d ) 444 496 ENDIF 445 497 IF( med_diag%GMEPN%dgsave ) THEN 498 CALL lbc_lnk( fgmepn2d(:,:),'T',1.) 446 499 CALL iom_put( "GMEPN" , fgmepn2d ) 447 500 DEALLOCATE( fgmepn2d ) 448 501 ENDIF 449 502 IF( med_diag%GMEPD%dgsave ) THEN 503 CALL lbc_lnk( fgmepd2d(:,:),'T',1.) 450 504 CALL iom_put( "GMEPD" , fgmepd2d ) 451 505 DEALLOCATE( fgmepd2d ) 452 506 ENDIF 453 507 IF( med_diag%GMEZMI%dgsave ) THEN 508 CALL lbc_lnk( fgmezmi2d(:,:),'T',1.) 454 509 CALL iom_put( "GMEZMI" , fgmezmi2d ) 455 510 DEALLOCATE( fgmezmi2d ) 456 511 ENDIF 457 512 IF( med_diag%GMED%dgsave ) THEN 513 CALL lbc_lnk( fgmed2d(:,:),'T',1.) 458 514 CALL iom_put( "GMED" , fgmed2d ) 459 515 DEALLOCATE( fgmed2d ) 460 516 ENDIF 461 517 IF( med_diag%MZME%dgsave ) THEN 518 CALL lbc_lnk( fdzme2d(:,:),'T',1.) 462 519 CALL iom_put( "MZME" , fdzme2d ) 463 520 DEALLOCATE( fdzme2d ) 464 521 ENDIF 465 522 ! IF( med_diag%DEXP%dgsave ) THEN 523 ! CALL lbc_lnk( ftot_n(:,:),'T',1.) 466 524 ! CALL iom_put( "DEXP" , ftot_n ) 467 525 ! ENDIF 468 526 IF( med_diag%DETN%dgsave ) THEN 527 CALL lbc_lnk( fslown2d(:,:),'T',1.) 469 528 CALL iom_put( "DETN" , fslown2d ) 470 529 DEALLOCATE( fslown2d ) 471 530 ENDIF 472 531 IF( med_diag%MDET%dgsave ) THEN 532 CALL lbc_lnk( fdd2d(:,:),'T',1.) 473 533 CALL iom_put( "MDET" , fdd2d ) 474 534 DEALLOCATE( fdd2d ) 475 535 ENDIF 476 536 IF( med_diag%AEOLIAN%dgsave ) THEN 537 CALL lbc_lnk( ffetop2d(:,:),'T',1.) 477 538 CALL iom_put( "AEOLIAN" , ffetop2d ) 478 539 DEALLOCATE( ffetop2d ) 479 540 ENDIF 480 541 IF( med_diag%BENTHIC%dgsave ) THEN 542 CALL lbc_lnk( ffebot2d(:,:),'T',1.) 481 543 CALL iom_put( "BENTHIC" , ffebot2d ) 482 544 DEALLOCATE( ffebot2d ) 483 545 ENDIF 484 546 IF( med_diag%SCAVENGE%dgsave ) THEN 547 CALL lbc_lnk( ffescav2d(:,:),'T',1.) 485 548 CALL iom_put( "SCAVENGE" , ffescav2d ) 486 549 DEALLOCATE( ffescav2d ) … … 488 551 !! 489 552 IF( med_diag%TOTREG_N%dgsave ) THEN 553 CALL lbc_lnk( fregen2d(:,:),'T',1.) 490 554 CALL iom_put( "TOTREG_N" , fregen2d ) 491 555 DEALLOCATE( fregen2d ) 492 556 ENDIF 493 557 IF( med_diag%TOTRG_SI%dgsave ) THEN 558 CALL lbc_lnk( fregensi2d(:,:),'T',1.) 494 559 CALL iom_put( "TOTRG_SI" , fregensi2d ) 495 560 DEALLOCATE( fregensi2d ) … … 497 562 !! 498 563 IF( med_diag%FASTN%dgsave ) THEN 564 CALL lbc_lnk( ftempn2d(:,:),'T',1.) 499 565 CALL iom_put( "FASTN" , ftempn2d ) 500 566 DEALLOCATE( ftempn2d ) 501 567 ENDIF 502 568 IF( med_diag%FASTSI%dgsave ) THEN 569 CALL lbc_lnk( ftempsi2d(:,:),'T',1.) 503 570 CALL iom_put( "FASTSI" , ftempsi2d ) 504 571 DEALLOCATE( ftempsi2d ) 505 572 ENDIF 506 573 IF( med_diag%FASTFE%dgsave ) THEN 574 CALL lbc_lnk( ftempfe2d(:,:),'T',1.) 507 575 CALL iom_put( "FASTFE" , ftempfe2d ) 508 576 DEALLOCATE( ftempfe2d ) 509 577 ENDIF 510 578 IF( med_diag%FASTC%dgsave ) THEN 579 CALL lbc_lnk( ftempc2d(:,:),'T',1.) 511 580 CALL iom_put( "FASTC" , ftempc2d ) 512 581 DEALLOCATE( ftempc2d ) 513 582 ENDIF 514 583 IF( med_diag%FASTCA%dgsave ) THEN 584 CALL lbc_lnk( ftempca2d(:,:),'T',1.) 515 585 CALL iom_put( "FASTCA" , ftempca2d ) 516 586 DEALLOCATE( ftempca2d ) … … 518 588 !! 519 589 IF( med_diag%REMINN%dgsave ) THEN 590 CALL lbc_lnk( freminn2d(:,:),'T',1.) 520 591 CALL iom_put( "REMINN" , freminn2d ) 521 592 DEALLOCATE( freminn2d ) 522 593 ENDIF 523 594 IF( med_diag%REMINSI%dgsave ) THEN 595 CALL lbc_lnk( freminsi2d(:,:),'T',1.) 524 596 CALL iom_put( "REMINSI" , freminsi2d ) 525 597 DEALLOCATE( freminsi2d ) 526 598 ENDIF 527 599 IF( med_diag%REMINFE%dgsave ) THEN 600 CALL lbc_lnk( freminfe2d(:,:),'T',1.) 528 601 CALL iom_put( "REMINFE" , freminfe2d ) 529 602 DEALLOCATE( freminfe2d ) 530 603 ENDIF 531 604 IF( med_diag%REMINC%dgsave ) THEN 605 CALL lbc_lnk( freminc2d(:,:),'T',1.) 532 606 CALL iom_put( "REMINC" , freminc2d ) 533 607 DEALLOCATE( freminc2d ) 534 608 ENDIF 535 609 IF( med_diag%REMINCA%dgsave ) THEN 610 CALL lbc_lnk( freminca2d(:,:),'T',1.) 536 611 CALL iom_put( "REMINCA" , freminca2d ) 537 612 DEALLOCATE( freminca2d ) 538 613 ENDIF 539 614 IF( med_diag%SEAFLRN%dgsave ) THEN 615 CALL lbc_lnk( fsedn(:,:),'T',1.) 540 616 CALL iom_put( "SEAFLRN" , fsedn ) 541 617 ENDIF 542 618 IF( med_diag%SEAFLRSI%dgsave ) THEN 619 CALL lbc_lnk( fsedsi(:,:),'T',1.) 543 620 CALL iom_put( "SEAFLRSI" , fsedsi ) 544 621 ENDIF 545 622 IF( med_diag%SEAFLRFE%dgsave ) THEN 623 CALL lbc_lnk( fsedfe(:,:),'T',1.) 546 624 CALL iom_put( "SEAFLRFE" , fsedfe ) 547 625 ENDIF 548 626 IF( med_diag%SEAFLRC%dgsave ) THEN 627 CALL lbc_lnk( fsedc(:,:),'T',1.) 549 628 CALL iom_put( "SEAFLRC" , fsedc ) 550 629 ENDIF 551 630 IF( med_diag%SEAFLRCA%dgsave ) THEN 631 CALL lbc_lnk( fsedca(:,:),'T',1.) 552 632 CALL iom_put( "SEAFLRCA" , fsedca ) 553 633 ENDIF … … 556 636 !! 557 637 IF( med_diag%RIV_N%dgsave ) THEN 638 CALL lbc_lnk( rivn2d(:,:),'T',1.) 558 639 CALL iom_put( "RIV_N" , rivn2d ) 559 640 DEALLOCATE( rivn2d ) 560 641 ENDIF 561 642 IF( med_diag%RIV_SI%dgsave ) THEN 643 CALL lbc_lnk( rivsi2d(:,:),'T',1.) 562 644 CALL iom_put( "RIV_SI" , rivsi2d ) 563 645 DEALLOCATE( rivsi2d ) 564 646 ENDIF 565 647 IF( med_diag%RIV_C%dgsave ) THEN 648 CALL lbc_lnk( rivc2d(:,:),'T',1.) 566 649 CALL iom_put( "RIV_C" , rivc2d ) 567 650 DEALLOCATE( rivc2d ) 568 651 ENDIF 569 652 IF( med_diag%RIV_ALK%dgsave ) THEN 653 CALL lbc_lnk( rivalk2d(:,:),'T',1.) 570 654 CALL iom_put( "RIV_ALK" , rivalk2d ) 571 655 DEALLOCATE( rivalk2d ) 572 656 ENDIF 573 657 IF( med_diag%DETC%dgsave ) THEN 658 CALL lbc_lnk( fslowc2d(:,:),'T',1.) 574 659 CALL iom_put( "DETC" , fslowc2d ) 575 660 DEALLOCATE( fslowc2d ) … … 577 662 !! 578 663 IF( med_diag%PN_LLOSS%dgsave ) THEN 664 CALL lbc_lnk( fdpn22d(:,:),'T',1.) 579 665 CALL iom_put( "PN_LLOSS" , fdpn22d ) 580 666 DEALLOCATE( fdpn22d ) 581 667 ENDIF 582 668 IF( med_diag%PD_LLOSS%dgsave ) THEN 669 CALL lbc_lnk( fdpd22d(:,:),'T',1.) 583 670 CALL iom_put( "PD_LLOSS" , fdpd22d ) 584 671 DEALLOCATE( fdpd22d ) 585 672 ENDIF 586 673 IF( med_diag%ZI_LLOSS%dgsave ) THEN 674 CALL lbc_lnk( fdzmi22d(:,:),'T',1.) 587 675 CALL iom_put( "ZI_LLOSS" , fdzmi22d ) 588 676 DEALLOCATE( fdzmi22d ) 589 677 ENDIF 590 678 IF( med_diag%ZE_LLOSS%dgsave ) THEN 679 CALL lbc_lnk( fdzme22d(:,:),'T',1.) 591 680 CALL iom_put( "ZE_LLOSS" , fdzme22d ) 592 681 DEALLOCATE( fdzme22d ) 593 682 ENDIF 594 683 IF( med_diag%ZI_MES_N%dgsave ) THEN 684 CALL lbc_lnk( zimesn2d(:,:),'T',1.) 595 685 CALL iom_put( "ZI_MES_N" , zimesn2d ) 596 686 DEALLOCATE( zimesn2d ) 597 687 ENDIF 598 688 IF( med_diag%ZI_MES_D%dgsave ) THEN 689 CALL lbc_lnk( zimesd2d(:,:),'T',1.) 599 690 CALL iom_put( "ZI_MES_D" , zimesd2d ) 600 691 DEALLOCATE( zimesd2d ) 601 692 ENDIF 602 693 IF( med_diag%ZI_MES_C%dgsave ) THEN 694 CALL lbc_lnk( zimesc2d(:,:),'T',1.) 603 695 CALL iom_put( "ZI_MES_C" , zimesc2d ) 604 696 DEALLOCATE( zimesc2d ) 605 697 ENDIF 606 698 IF( med_diag%ZI_MESDC%dgsave ) THEN 699 CALL lbc_lnk( zimesdc2d(:,:),'T',1.) 607 700 CALL iom_put( "ZI_MESDC" ,zimesdc2d ) 608 701 DEALLOCATE( zimesdc2d ) 609 702 ENDIF 610 703 IF( med_diag%ZI_EXCR%dgsave ) THEN 704 CALL lbc_lnk( ziexcr2d(:,:),'T',1.) 611 705 CALL iom_put( "ZI_EXCR" , ziexcr2d ) 612 706 DEALLOCATE( ziexcr2d ) 613 707 ENDIF 614 708 IF( med_diag%ZI_RESP%dgsave ) THEN 709 CALL lbc_lnk( ziresp2d(:,:),'T',1.) 615 710 CALL iom_put( "ZI_RESP" , ziresp2d ) 616 711 DEALLOCATE( ziresp2d ) 617 712 ENDIF 618 713 IF( med_diag%ZI_GROW%dgsave ) THEN 714 CALL lbc_lnk( zigrow2d(:,:),'T',1.) 619 715 CALL iom_put( "ZI_GROW" , zigrow2d ) 620 716 DEALLOCATE( zigrow2d ) 621 717 ENDIF 622 718 IF( med_diag%ZE_MES_N%dgsave ) THEN 719 CALL lbc_lnk( zemesn2d(:,:),'T',1.) 623 720 CALL iom_put( "ZE_MES_N" , zemesn2d ) 624 721 DEALLOCATE( zemesn2d ) 625 722 ENDIF 626 723 IF( med_diag%ZE_MES_D%dgsave ) THEN 724 CALL lbc_lnk( zemesd2d(:,:),'T',1.) 627 725 CALL iom_put( "ZE_MES_D" , zemesd2d ) 628 726 DEALLOCATE( zemesd2d ) 629 727 ENDIF 630 728 IF( med_diag%ZE_MES_C%dgsave ) THEN 729 CALL lbc_lnk( zemesc2d(:,:),'T',1.) 631 730 CALL iom_put( "ZE_MES_C" , zemesc2d ) 632 731 DEALLOCATE( zemesc2d ) 633 732 ENDIF 634 733 IF( med_diag%ZE_MESDC%dgsave ) THEN 734 CALL lbc_lnk( zemesdc2d(:,:),'T',1.) 635 735 CALL iom_put( "ZE_MESDC" , zemesdc2d ) 636 736 DEALLOCATE( zemesdc2d ) 637 737 ENDIF 638 738 IF( med_diag%ZE_EXCR%dgsave ) THEN 739 CALL lbc_lnk( zeexcr2d(:,:),'T',1.) 639 740 CALL iom_put( "ZE_EXCR" , zeexcr2d ) 640 741 DEALLOCATE( zeexcr2d ) 641 742 ENDIF 642 743 IF( med_diag%ZE_RESP%dgsave ) THEN 744 CALL lbc_lnk( zeresp2d(:,:),'T',1.) 643 745 CALL iom_put( "ZE_RESP" , zeresp2d ) 644 746 DEALLOCATE( zeresp2d ) 645 747 ENDIF 646 748 IF( med_diag%ZE_GROW%dgsave ) THEN 749 CALL lbc_lnk( zegrow2d(:,:),'T',1.) 647 750 CALL iom_put( "ZE_GROW" , zegrow2d ) 648 751 DEALLOCATE( zegrow2d ) 649 752 ENDIF 650 753 IF( med_diag%MDETC%dgsave ) THEN 754 CALL lbc_lnk( mdetc2d(:,:),'T',1.) 651 755 CALL iom_put( "MDETC" , mdetc2d ) 652 756 DEALLOCATE( mdetc2d ) 653 757 ENDIF 654 758 IF( med_diag%GMIDC%dgsave ) THEN 759 CALL lbc_lnk( gmidc2d(:,:),'T',1.) 655 760 CALL iom_put( "GMIDC" , gmidc2d ) 656 761 DEALLOCATE( gmidc2d ) 657 762 ENDIF 658 763 IF( med_diag%GMEDC%dgsave ) THEN 764 CALL lbc_lnk( gmedc2d(:,:),'T',1.) 659 765 CALL iom_put( "GMEDC" , gmedc2d ) 660 766 DEALLOCATE( gmedc2d ) 661 767 ENDIF 662 768 IF( med_diag%IBEN_N%dgsave ) THEN 769 CALL lbc_lnk( iben_n2d(:,:),'T',1.) 663 770 CALL iom_put( "IBEN_N" , iben_n2d ) 664 771 DEALLOCATE( iben_n2d ) 665 772 ENDIF 666 773 IF( med_diag%IBEN_FE%dgsave ) THEN 774 CALL lbc_lnk( iben_fe2d(:,:),'T',1.) 667 775 CALL iom_put( "IBEN_FE" , iben_fe2d ) 668 776 DEALLOCATE( iben_fe2d ) 669 777 ENDIF 670 778 IF( med_diag%IBEN_C%dgsave ) THEN 779 CALL lbc_lnk( iben_c2d(:,:),'T',1.) 671 780 CALL iom_put( "IBEN_C" , iben_c2d ) 672 781 DEALLOCATE( iben_c2d ) 673 782 ENDIF 674 783 IF( med_diag%IBEN_SI%dgsave ) THEN 784 CALL lbc_lnk( iben_si2d(:,:),'T',1.) 675 785 CALL iom_put( "IBEN_SI" , iben_si2d ) 676 786 DEALLOCATE( iben_si2d ) 677 787 ENDIF 678 788 IF( med_diag%IBEN_CA%dgsave ) THEN 789 CALL lbc_lnk( iben_ca2d(:,:),'T',1.) 679 790 CALL iom_put( "IBEN_CA" , iben_ca2d ) 680 791 DEALLOCATE( iben_ca2d ) 681 792 ENDIF 682 793 IF( med_diag%OBEN_N%dgsave ) THEN 794 CALL lbc_lnk( oben_n2d(:,:),'T',1.) 683 795 CALL iom_put( "OBEN_N" , oben_n2d ) 684 796 DEALLOCATE( oben_n2d ) 685 797 ENDIF 686 798 IF( med_diag%OBEN_FE%dgsave ) THEN 799 CALL lbc_lnk( oben_fe2d(:,:),'T',1.) 687 800 CALL iom_put( "OBEN_FE" , oben_fe2d ) 688 801 DEALLOCATE( oben_fe2d ) 689 802 ENDIF 690 803 IF( med_diag%OBEN_C%dgsave ) THEN 804 CALL lbc_lnk( oben_c2d(:,:),'T',1.) 691 805 CALL iom_put( "OBEN_C" , oben_c2d ) 692 806 DEALLOCATE( oben_c2d ) 693 807 ENDIF 694 808 IF( med_diag%OBEN_SI%dgsave ) THEN 809 CALL lbc_lnk( oben_si2d(:,:),'T',1.) 695 810 CALL iom_put( "OBEN_SI" , oben_si2d ) 696 811 DEALLOCATE( oben_si2d ) 697 812 ENDIF 698 813 IF( med_diag%OBEN_CA%dgsave ) THEN 814 CALL lbc_lnk( oben_ca2d(:,:),'T',1.) 699 815 CALL iom_put( "OBEN_CA" , oben_ca2d ) 700 816 DEALLOCATE( oben_ca2d ) 701 817 ENDIF 702 818 IF( med_diag%SFR_OCAL%dgsave ) THEN 819 CALL lbc_lnk( sfr_ocal2d(:,:),'T',1.) 703 820 CALL iom_put( "SFR_OCAL" , sfr_ocal2d ) 704 821 DEALLOCATE( sfr_ocal2d ) 705 822 ENDIF 706 823 IF( med_diag%SFR_OARG%dgsave ) THEN 824 CALL lbc_lnk( sfr_oarg2d(:,:),'T',1.) 707 825 CALL iom_put( "SFR_OARG" , sfr_oarg2d ) 708 826 DEALLOCATE( sfr_oarg2d ) 709 827 ENDIF 710 828 IF( med_diag%LYSO_CA%dgsave ) THEN 829 CALL lbc_lnk( lyso_ca2d(:,:),'T',1.) 711 830 CALL iom_put( "LYSO_CA" , lyso_ca2d ) 712 831 DEALLOCATE( lyso_ca2d ) … … 716 835 !! ** 3D diagnostics 717 836 IF( med_diag%TPP3%dgsave ) THEN 837 CALL lbc_lnk( tpp3d(:,:,:),'T',1.) 718 838 CALL iom_put( "TPP3" , tpp3d ) 719 839 DEALLOCATE( tpp3d ) 720 840 ENDIF 721 841 IF( med_diag%DETFLUX3%dgsave ) THEN 842 CALL lbc_lnk( detflux3d(:,:,:),'T',1.) 722 843 CALL iom_put( "DETFLUX3" , detflux3d ) 723 844 DEALLOCATE( detflux3d ) 724 845 ENDIF 725 846 IF( med_diag%REMIN3N%dgsave ) THEN 847 CALL lbc_lnk( remin3dn(:,:,:),'T',1.) 726 848 CALL iom_put( "REMIN3N" , remin3dn ) 727 849 DEALLOCATE( remin3dn ) … … 729 851 # if defined key_roam 730 852 IF( med_diag%PH3%dgsave ) THEN 853 CALL lbc_lnk( f3_pH(:,:,:),'T',1.) 731 854 CALL iom_put( "PH3" , f3_pH ) 732 855 ENDIF 733 856 IF( med_diag%OM_CAL3%dgsave ) THEN 857 CALL lbc_lnk( f3_omcal(:,:,:),'T',1.) 734 858 CALL iom_put( "OM_CAL3" , f3_omcal ) 735 859 ENDIF … … 737 861 !! AXY (09/11/16): 2D CMIP6 diagnostics 738 862 IF( med_diag%INTDISSIC%dgsave ) THEN 863 CALL lbc_lnk( intdissic(:,:),'T',1.) 739 864 CALL iom_put( "INTDISSIC" , intdissic ) 740 865 DEALLOCATE( intdissic ) 741 866 ENDIF 742 867 IF( med_diag%INTDISSIN%dgsave ) THEN 868 CALL lbc_lnk( intdissin(:,:),'T',1.) 743 869 CALL iom_put( "INTDISSIN" , intdissin ) 744 870 DEALLOCATE( intdissin ) 745 871 ENDIF 746 872 IF( med_diag%INTDISSISI%dgsave ) THEN 873 CALL lbc_lnk( intdissisi(:,:),'T',1.) 747 874 CALL iom_put( "INTDISSISI" , intdissisi ) 748 875 DEALLOCATE( intdissisi ) 749 876 ENDIF 750 877 IF( med_diag%INTTALK%dgsave ) THEN 878 CALL lbc_lnk( inttalk(:,:),'T',1.) 751 879 CALL iom_put( "INTTALK" , inttalk ) 752 880 DEALLOCATE( inttalk ) 753 881 ENDIF 754 882 IF( med_diag%O2min%dgsave ) THEN 883 CALL lbc_lnk( o2min(:,:),'T',1.) 755 884 CALL iom_put( "O2min" , o2min ) 756 885 DEALLOCATE( o2min ) 757 886 ENDIF 758 887 IF( med_diag%ZO2min%dgsave ) THEN 888 CALL lbc_lnk( zo2min(:,:),'T',1.) 759 889 CALL iom_put( "ZO2min" , zo2min ) 760 890 DEALLOCATE( zo2min ) 761 891 ENDIF 762 892 IF( med_diag%FBDDTALK%dgsave ) THEN 893 CALL lbc_lnk( fbddtalk(:,:),'T',1.) 763 894 CALL iom_put( "FBDDTALK" , fbddtalk ) 764 895 DEALLOCATE( fbddtalk ) 765 896 ENDIF 766 897 IF( med_diag%FBDDTDIC%dgsave ) THEN 898 CALL lbc_lnk( fbddtdic(:,:),'T',1.) 767 899 CALL iom_put( "FBDDTDIC" , fbddtdic ) 768 900 DEALLOCATE( fbddtdic ) 769 901 ENDIF 770 902 IF( med_diag%FBDDTDIFE%dgsave ) THEN 903 CALL lbc_lnk( fbddtdife(:,:),'T',1.) 771 904 CALL iom_put( "FBDDTDIFE" , fbddtdife ) 772 905 DEALLOCATE( fbddtdife ) 773 906 ENDIF 774 907 IF( med_diag%FBDDTDIN%dgsave ) THEN 908 CALL lbc_lnk( fbddtdin(:,:),'T',1.) 775 909 CALL iom_put( "FBDDTDIN" , fbddtdin ) 776 910 DEALLOCATE( fbddtdin ) 777 911 ENDIF 778 912 IF( med_diag%FBDDTDISI%dgsave ) THEN 913 CALL lbc_lnk( fbddtdisi(:,:),'T',1.) 779 914 CALL iom_put( "FBDDTDISI" , fbddtdisi ) 780 915 DEALLOCATE( fbddtdisi ) … … 783 918 !! AXY (09/11/16): 3D CMIP6 diagnostics 784 919 IF( med_diag%TPPD3%dgsave ) THEN 920 CALL lbc_lnk( tppd3(:,:,:),'T',1.) 785 921 CALL iom_put( "TPPD3" , tppd3 ) 786 922 DEALLOCATE( tppd3 ) 787 923 ENDIF 788 924 IF( med_diag%BDDTALK3%dgsave ) THEN 925 CALL lbc_lnk( bddtalk3(:,:,:),'T',1.) 789 926 CALL iom_put( "BDDTALK3" , bddtalk3 ) 790 927 DEALLOCATE( bddtalk3 ) 791 928 ENDIF 792 929 IF( med_diag%BDDTDIC3%dgsave ) THEN 930 CALL lbc_lnk( bddtdic3(:,:,:),'T',1.) 793 931 CALL iom_put( "BDDTDIC3" , bddtdic3 ) 794 932 DEALLOCATE( bddtdic3 ) 795 933 ENDIF 796 934 IF( med_diag%BDDTDIFE3%dgsave ) THEN 935 CALL lbc_lnk( bddtdife3(:,:,:),'T',1.) 797 936 CALL iom_put( "BDDTDIFE3" , bddtdife3 ) 798 937 DEALLOCATE( bddtdife3 ) 799 938 ENDIF 800 939 IF( med_diag%BDDTDIN3%dgsave ) THEN 940 CALL lbc_lnk( bddtdin3(:,:,:),'T',1.) 801 941 CALL iom_put( "BDDTDIN3" , bddtdin3 ) 802 942 DEALLOCATE( bddtdin3 ) 803 943 ENDIF 804 944 IF( med_diag%BDDTDISI3%dgsave ) THEN 945 CALL lbc_lnk( bddtdisi3(:,:,:),'T',1.) 805 946 CALL iom_put( "BDDTDISI3" , bddtdisi3 ) 806 947 DEALLOCATE( bddtdisi3 ) 807 948 ENDIF 808 949 IF( med_diag%FD_NIT3%dgsave ) THEN 950 CALL lbc_lnk( fd_nit3(:,:,:),'T',1.) 809 951 CALL iom_put( "FD_NIT3" , fd_nit3 ) 810 952 DEALLOCATE( fd_nit3 ) 811 953 ENDIF 812 954 IF( med_diag%FD_SIL3%dgsave ) THEN 955 CALL lbc_lnk( fd_sil3(:,:,:),'T',1.) 813 956 CALL iom_put( "FD_SIL3" , fd_sil3 ) 814 957 DEALLOCATE( fd_sil3 ) 815 958 ENDIF 816 959 IF( med_diag%FD_CAL3%dgsave ) THEN 960 CALL lbc_lnk( fd_cal3(:,:,:),'T',1.) 817 961 CALL iom_put( "FD_CAL3" , fd_cal3 ) 818 962 DEALLOCATE( fd_cal3 ) 819 963 ENDIF 820 964 IF( med_diag%FD_CAR3%dgsave ) THEN 965 CALL lbc_lnk( fd_car3(:,:,:),'T',1.) 821 966 CALL iom_put( "FD_CAR3" , fd_car3 ) 822 967 DEALLOCATE( fd_car3 ) 823 968 ENDIF 824 969 IF( med_diag%CO33%dgsave ) THEN 970 CALL lbc_lnk( f3_co3(:,:,:),'T',1.) 825 971 CALL iom_put( "CO33" , f3_co3 ) 826 972 ENDIF 827 973 IF( med_diag%CO3SATARAG3%dgsave ) THEN 974 CALL lbc_lnk( f3_omarg(:,:,:),'T',1.) 828 975 CALL iom_put( "CO3SATARAG3" , f3_omarg ) 829 976 ENDIF 830 977 IF( med_diag%CO3SATCALC3%dgsave ) THEN 978 CALL lbc_lnk( f3_omcal(:,:,:),'T',1.) 831 979 CALL iom_put( "CO3SATCALC3" , f3_omcal ) 832 980 ENDIF 833 981 IF( med_diag%EXPC3%dgsave ) THEN 982 CALL lbc_lnk( expc3(:,:,:),'T',1.) 834 983 CALL iom_put( "EXPC3" , expc3 ) 835 984 DEALLOCATE( expc3 ) 836 985 ENDIF 837 986 IF( med_diag%EXPN3%dgsave ) THEN 987 CALL lbc_lnk( expn3(:,:,:),'T',1.) 838 988 CALL iom_put( "EXPN3" , expn3 ) 839 989 DEALLOCATE( expn3 ) 840 990 ENDIF 841 991 IF( med_diag%DCALC3%dgsave ) THEN 992 CALL lbc_lnk( dcalc3(:,:,:),'T',1.) 842 993 CALL iom_put( "DCALC3" , dcalc3 ) 843 994 DEALLOCATE( dcalc3 ) 844 995 ENDIF 845 996 IF( med_diag%FEDISS3%dgsave ) THEN 997 CALL lbc_lnk( fediss3(:,:,:),'T',1.) 846 998 CALL iom_put( "FEDISS3" , fediss3 ) 847 999 DEALLOCATE( fediss3 ) 848 1000 ENDIF 849 1001 IF( med_diag%FESCAV3%dgsave ) THEN 1002 CALL lbc_lnk( fescav3(:,:,:),'T',1.) 850 1003 CALL iom_put( "FESCAV3" , fescav3 ) 851 1004 DEALLOCATE( fescav3 ) 852 1005 ENDIF 853 1006 IF( med_diag%MIGRAZP3%dgsave ) THEN 1007 CALL lbc_lnk( migrazp3(:,:,:),'T',1.) 854 1008 CALL iom_put( "MIGRAZP3" , migrazp3 ) 855 1009 DEALLOCATE( migrazp3 ) 856 1010 ENDIF 857 1011 IF( med_diag%MIGRAZD3%dgsave ) THEN 1012 CALL lbc_lnk( migrazd3(:,:,:),'T',1.) 858 1013 CALL iom_put( "MIGRAZD3" , migrazd3 ) 859 1014 DEALLOCATE( migrazd3 ) 860 1015 ENDIF 861 1016 IF( med_diag%MEGRAZP3%dgsave ) THEN 1017 CALL lbc_lnk( megrazp3(:,:,:),'T',1.) 862 1018 CALL iom_put( "MEGRAZP3" , megrazp3 ) 863 1019 DEALLOCATE( megrazp3 ) 864 1020 ENDIF 865 1021 IF( med_diag%MEGRAZD3%dgsave ) THEN 1022 CALL lbc_lnk( megrazd3(:,:,:),'T',1.) 866 1023 CALL iom_put( "MEGRAZD3" , megrazd3 ) 867 1024 DEALLOCATE( megrazd3 ) 868 1025 ENDIF 869 1026 IF( med_diag%MEGRAZZ3%dgsave ) THEN 1027 CALL lbc_lnk( megrazz3(:,:,:),'T',1.) 870 1028 CALL iom_put( "MEGRAZZ3" , megrazz3 ) 871 1029 DEALLOCATE( megrazz3 ) 872 1030 ENDIF 873 1031 IF( med_diag%O2SAT3%dgsave ) THEN 1032 CALL lbc_lnk( o2sat3(:,:,:),'T',1.) 874 1033 CALL iom_put( "O2SAT3" , o2sat3 ) 875 1034 DEALLOCATE( o2sat3 ) 876 1035 ENDIF 877 1036 IF( med_diag%PBSI3%dgsave ) THEN 1037 CALL lbc_lnk( pbsi3(:,:,:),'T',1.) 878 1038 CALL iom_put( "PBSI3" , pbsi3 ) 879 1039 DEALLOCATE( pbsi3 ) 880 1040 ENDIF 881 1041 IF( med_diag%PCAL3%dgsave ) THEN 1042 CALL lbc_lnk( pcal3(:,:,:),'T',1.) 882 1043 CALL iom_put( "PCAL3" , pcal3 ) 883 1044 DEALLOCATE( pcal3 ) 884 1045 ENDIF 885 1046 IF( med_diag%REMOC3%dgsave ) THEN 1047 CALL lbc_lnk( remoc3(:,:,:),'T',1.) 886 1048 CALL iom_put( "REMOC3" , remoc3 ) 887 1049 DEALLOCATE( remoc3 ) 888 1050 ENDIF 889 1051 IF( med_diag%PNLIMJ3%dgsave ) THEN 1052 CALL lbc_lnk( pnlimj3(:,:,:),'T',1.) 890 1053 CALL iom_put( "PNLIMJ3" , pnlimj3 ) 891 1054 DEALLOCATE( pnlimj3 ) 892 1055 ENDIF 893 1056 IF( med_diag%PNLIMN3%dgsave ) THEN 1057 CALL lbc_lnk( pnlimn3(:,:,:),'T',1.) 894 1058 CALL iom_put( "PNLIMN3" , pnlimn3 ) 895 1059 DEALLOCATE( pnlimn3 ) 896 1060 ENDIF 897 1061 IF( med_diag%PNLIMFE3%dgsave ) THEN 1062 CALL lbc_lnk( pnlimfe3(:,:,:),'T',1.) 898 1063 CALL iom_put( "PNLIMFE3" , pnlimfe3 ) 899 1064 DEALLOCATE( pnlimfe3 ) 900 1065 ENDIF 901 1066 IF( med_diag%PDLIMJ3%dgsave ) THEN 1067 CALL lbc_lnk( pdlimj3(:,:,:),'T',1.) 902 1068 CALL iom_put( "PDLIMJ3" , pdlimj3 ) 903 1069 DEALLOCATE( pdlimj3 ) 904 1070 ENDIF 905 1071 IF( med_diag%PDLIMN3%dgsave ) THEN 1072 CALL lbc_lnk( pdlimn3(:,:,:),'T',1.) 906 1073 CALL iom_put( "PDLIMN3" , pdlimn3 ) 907 1074 DEALLOCATE( pdlimn3 ) 908 1075 ENDIF 909 1076 IF( med_diag%PDLIMFE3%dgsave ) THEN 1077 CALL lbc_lnk( pdlimfe3(:,:,:),'T',1.) 910 1078 CALL iom_put( "PDLIMFE3" , pdlimfe3 ) 911 1079 DEALLOCATE( pdlimfe3 ) 912 1080 ENDIF 913 1081 IF( med_diag%PDLIMSI3%dgsave ) THEN 1082 CALL lbc_lnk( pdlimsi3(:,:,:),'T',1.) 914 1083 CALL iom_put( "PDLIMSI3" , pdlimsi3 ) 915 1084 DEALLOCATE( pdlimsi3 )
Note: See TracChangeset
for help on using the changeset viewer.
