512 |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
513 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
514 |
|
|
515 |
diagName = 'TFLUX ' |
#ifdef ATMOSPHERIC_LOADING |
516 |
diagTitle = 'net surface heat flux, >0 increases theta ' |
diagName = 'atmPload' |
517 |
|
diagTitle = 'Atmospheric pressure loading' |
518 |
|
diagUnits = 'Pa ' |
519 |
|
diagCode = 'SM U1 ' |
520 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
521 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
522 |
|
|
523 |
|
diagName = 'sIceLoad' |
524 |
|
diagTitle = 'sea-ice loading (in Mass of ice+snow / area unit)' |
525 |
|
diagUnits = 'kg/m^2 ' |
526 |
|
diagCode = 'SM U1 ' |
527 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
528 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
529 |
|
#endif /* ATMOSPHERIC_LOADING */ |
530 |
|
|
531 |
|
diagName = 'oceFWflx' |
532 |
|
diagTitle = 'net surface Fresh-Water flux into the ocean' |
533 |
|
& //' (+=down), >0 decreases salinity' |
534 |
|
diagUnits = 'kg/m^2/s ' |
535 |
|
diagCode = 'SM U1 ' |
536 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
537 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
538 |
|
|
539 |
|
diagName = 'oceSflux' |
540 |
|
diagTitle = 'net surface Salt flux into the ocean (+=down),' |
541 |
|
& //' >0 increases salinity' |
542 |
|
diagUnits = 'g/m^2/s ' |
543 |
|
diagCode = 'SM U1 ' |
544 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
545 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
546 |
|
|
547 |
|
diagName = 'oceQnet ' |
548 |
|
diagTitle = 'net surface heat flux into the ocean (+=down),' |
549 |
|
& //' >0 increases theta' |
550 |
diagUnits = 'W/m^2 ' |
diagUnits = 'W/m^2 ' |
551 |
diagCode = 'SM U1 ' |
diagCode = 'SM U1 ' |
552 |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
553 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
554 |
|
|
555 |
diagName = 'TRELAX ' |
diagName = 'oceQsw ' |
556 |
diagTitle = 'surface temperature relaxation, >0 increases theta' |
diagTitle = 'net Short-Wave radiation (+=down),' |
557 |
|
& //' >0 increases theta' |
558 |
diagUnits = 'W/m^2 ' |
diagUnits = 'W/m^2 ' |
559 |
diagCode = 'SM U1 ' |
diagCode = 'SM U1 ' |
560 |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
561 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
562 |
|
|
563 |
diagName = 'oceFreez' |
diagName = 'oceFreez' |
564 |
diagTitle = 'heat from melt/freeze of sea-ice, >0 increases theta' |
diagTitle = 'heating from freezing of sea-water (allowFreezing=T)' |
565 |
diagUnits = 'W/m^2 ' |
diagUnits = 'W/m^2 ' |
566 |
diagCode = 'SM U1 ' |
diagCode = 'SM U1 ' |
567 |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
568 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
569 |
|
|
570 |
diagName = 'SFLUX ' |
diagName = 'TRELAX ' |
571 |
diagTitle = 'net surface salt flux, >0 increases salt' |
diagTitle = 'surface temperature relaxation, >0 increases theta' |
572 |
diagUnits = 'g/m^2/s ' |
diagUnits = 'W/m^2 ' |
573 |
diagCode = 'SM U1 ' |
diagCode = 'SM U1 ' |
574 |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
575 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
581 |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
582 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
583 |
|
|
584 |
diagName = 'oceQsw ' |
diagName = 'surForcT' |
585 |
diagTitle = 'net upward SW radiation, >0 increases theta' |
diagTitle = 'model surface forcing for Temperature,' |
586 |
|
& //' >0 increases theta' |
587 |
|
diagUnits = 'W/m^2 ' |
588 |
|
diagCode = 'SM U1 ' |
589 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
590 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
591 |
|
|
592 |
|
diagName = 'surForcS' |
593 |
|
diagTitle = 'model surface forcing for Salinity,' |
594 |
|
& //' >0 increases salinity' |
595 |
|
diagUnits = 'g/m^2/s ' |
596 |
|
diagCode = 'SM U1 ' |
597 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
598 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
599 |
|
|
600 |
|
diagName = 'TFLUX ' |
601 |
|
diagTitle = 'total heat flux (match heat-content variations),' |
602 |
|
& //' >0 increases theta' |
603 |
diagUnits = 'W/m^2 ' |
diagUnits = 'W/m^2 ' |
604 |
diagCode = 'SM U1 ' |
diagCode = 'SM U1 ' |
605 |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
606 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
607 |
|
|
608 |
|
diagName = 'SFLUX ' |
609 |
|
diagTitle = 'total salt flux (match salt-content variations),' |
610 |
|
& //' >0 increases salt' |
611 |
|
diagUnits = 'g/m^2/s ' |
612 |
|
diagCode = 'SM U1 ' |
613 |
|
CALL DIAGNOSTICS_ADD2LIST( diagNum, |
614 |
|
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
615 |
|
|
616 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
617 |
|
|
618 |
diagName = 'RCENTER ' |
diagName = 'RCENTER ' |
|
C- will be changed to an isomorphic name, such as: |
|
|
c diagName = 'RCENTER ' |
|
619 |
c diagTitle = 'Cell-Center r-Position (Pressure, Height) (Pa,m)' |
c diagTitle = 'Cell-Center r-Position (Pressure, Height) (Pa,m)' |
620 |
diagTitle = DIAGS_MK_TITLE( 'Cell-Center '//rTitle, myThid ) |
diagTitle = DIAGS_MK_TITLE( 'Cell-Center '//rTitle, myThid ) |
621 |
diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid ) |
diagUnits = DIAGS_MK_UNITS( rUnit2c, myThid ) |