! source file: /Users/csomes/Research/Models/UVic_ESCM/2.9/sim/nonredfield_dom/clean_up_code/seaice_wind_bug/afs_high/updates/mom_tsi.F subroutine mom_tsi_def (fname, calendar, expnam, runstamp) !======================================================================= ! output routine for ocean time step integrals ! inputs: ! fname = file name ! calendar = calendar ! expnam = experiment name ! runstamp = run stamp !======================================================================= implicit none character(*) :: fname, calendar, expnam, runstamp integer id(1), id_time, iou, ntrec real c0, c1, c10, c100, c500, c1e3, c1e6, c1e20 c0 = 0. c1 = 1. c10 = 10. c100 = 100. c500 = 500. c1e3 = 1.e3 c1e6 = 1.e6 c1e20 = 1.e20 !----------------------------------------------------------------------- ! open file !----------------------------------------------------------------------- call openfile (fname, iou) !----------------------------------------------------------------------- ! start definitions !----------------------------------------------------------------------- call redef (iou) !----------------------------------------------------------------------- ! write global atributes !----------------------------------------------------------------------- call putatttext (iou, 'global', 'Conventions', 'CF-1.0') call putatttext (iou, 'global', 'experiment_name', expnam) call putatttext (iou, 'global', 'run_stamp', runstamp) !----------------------------------------------------------------------- ! define dimensions !----------------------------------------------------------------------- call defdim ('time', iou, 0, id_time) id = id_time !----------------------------------------------------------------------- ! define 1d data (t) !----------------------------------------------------------------------- call defvar ('time', iou, 1, id, c0, c0, 'T', 'D' &, 'time', 'time', 'years since 0-1-1') call putatttext (iou, 'time', 'calendar', calendar) call defvar ('T_avgper', iou, 1, id, c0, c0, ' ', 'F' &, 'averaging period', ' ','day') call defvar ('O_ke', iou, 1, id, c0, c1e6, ' ', 'F' &, 'kinetic energy per unit volume', ' ', 'J m-3') call defvar ('O_temp', iou, 1, id, -c100, c500, ' ', 'F' &, 'global average ocean temperature', ' ', 'C') call defvar ('O_sal', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean salinity', ' ', '1e-3') call defvar ('O_tempvar', iou, 1, id, c0, c1e20, ' ', 'F' &, 'variance of ocean temperature', ' ', 'C2') call defvar ('O_salvar', iou, 1, id, c0, c1e20, ' ', 'F' &, 'variance of ocean salinity', ' ', '1e-6') call defvar ('O_absdtemp', iou, 1, id, c0, c1e20, ' ' &, 'F', 'rate of change of ocean temperature', ' ', 'C s-1') call defvar ('O_absdsal', iou, 1, id, c0, c1e20, ' ' &, 'F', 'rate of change of ocean salinity', ' ', '1e-3 s-1') call defvar ('O_avgiter', iou, 1, id, c0, c1e6, ' ', 'F' &, 'ocean solver iterations', ' ', '1') call defvar ('F_heat', iou, 1, id, -c1e20, c1e20, ' ' &, 'F', 'global average ocean heat flux', ' ','W m-2') call defvar ('F_salt', iou, 1, id, -c1e20, c1e20, ' ' &, 'F', 'global average ocean salt flux', ' ','kg m-2 s-1') call defvar ('O_dic', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean dic', ' ', 'mol m-3') call defvar ('F_dic', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean dic flux', ' ', 'mol m-2 s-1') call defvar ('O_c14', iou, 1, id, -c1e3, c1e3, ' ', 'F' &, 'global average c14', ' ', 'mol m-3') call defvar ('O_dc14', iou, 1, id, -c1e3, c1e3, ' ', 'F' &, 'global average ocean delta c14', ' ', 'permil') call defvar ('F_c14', iou, 1, id, -c1e3, c1e3, ' ', 'F' &, 'global average ocean c14 flux', ' ', 'mol m-2 s-1') call defvar ('O_alk', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean alkalinity', ' ', 'mol m-3') call defvar ('O_o2', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean oxygen', ' ', 'mol m-3') call defvar ('F_o2', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean oxygen flux', ' ', 'mol m-2 s-1') call defvar ('O_po4', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean phosphate', ' ', 'mol m-3') call defvar ('O_dop', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean DOP', ' ', 'mol m-3') call defvar ('O_phyt', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean phytoplankton', ' ', 'mol N m-3') call defvar ('O_zoop', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean zooplankton', ' ', 'mol N m-3') call defvar ('O_detr', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean detritus', ' ', 'mol N m-3') call defvar ('O_no3', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean nitrate', ' ', 'mol m-3') call defvar ('O_don', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean DON', ' ', 'mol m-3') call defvar ('O_diaz', iou, 1, id, c0, c100, ' ', 'F' &, 'global average ocean diazotrophs', ' ', 'mol N m-3') call defvar ('O_motmax', iou, 1, id, c0, c1e20, ' ' &, 'F', 'maximum meridional overturning streamfunction', ' ' &, 'm3 s-1') call defvar ('O_motmin', iou, 1, id, c0, c1e20, ' ' &, 'F', 'minimum meridional overturning streamfunction', ' ' &, 'm3 s-1') call defvar ('O_dsealev', iou, 1, id, c0, c1e20, ' ', 'F' &, 'relative sea level height', ' ', 'm') call defvar ('O_phsur', iou, 1, id, c0, c100, ' ', 'F' &, 'global average sea surface pH', ' ', '1') call defvar ('O_co3sur', iou, 1, id, c0, c100, ' ', 'F' &, 'global average sea surface CO3', ' ', 'mol m-3') call defvar ('O_ocalcsur', iou, 1, id, c0, c100, ' ', 'F' &, 'global average sea surface omega calcite', ' ', '1') call defvar ('O_oaragsur', iou, 1, id, c0, c100, ' ', 'F' &, 'global average sea surface omega aragonite', ' ', '1') call defvar ('O_pco2sur', iou, 1, id, c0, c100, ' ', 'F' &, 'global average sea surface pCO2', ' ', 'ppmv') !----------------------------------------------------------------------- ! end definitions !----------------------------------------------------------------------- call enddef (iou) return end subroutine mom_tsi_out (fname, avgper, time, stamp, ektot, tbar1 &, tbar2, travar1, travar2, dtabs1, dtabs2 &, scan, hflx, sflx, tbar_dic, dicflx &, tbar_dic13, dic13flx &, tbar_alk, tbar_o2, o2flx, tbar_po4 &, tbar_dop, tbar_phyt, tbar_zoop, tbar_detr &, tbar_no3, tbar_don, tbar_diaz, tbar_din15 &, tbar_don15, tbar_phytn15, tbar_zoopn15 &, tbar_detrn15, tbar_diazn15, tbar_doc13 &, tbar_phytc13, tbar_zoopc13, tbar_detrc13 &, tbar_diazc13, tbar_c14 &, tbar_dc14, c14flx, tbar_cfc11, cfc11flx &, tbar_cfc12, cfc12flx, otmax, otmin, slh &, sspH, ssCO3, ssOc, ssOa, sspCO2, cocn &, cfa2o, ntrec) !======================================================================= ! output routine for ocean time step integrals ! inputs: ! fname = file name ! avgper = length of averaging period ! time = time in years ! stamp = time stamp ! ektot, ... = data to be written ! outputs: ! ntrec = number of time record in file !======================================================================= implicit none character(*) :: fname, stamp integer iou, ntrec, nyear, nmonth, nday, nhour, nmin, nsec real ektot, tbar1, tbar2, travar1, travar2, dtabs1, dtabs2, scan real hflx, sflx, tbar_dic, dicflx, tbar_alk, tbar_o2, o2flx real tbar_po4, tbar_phyt, tbar_zoop, tbar_detr, tbar_no3 real tbar_diaz, tbar_c14, tbar_dc14, c14flx, tbar_cfc11 real cfc11flx, tbar_cfc12, cfc12flx real otmax, otmin, slh, sspH, ssCO3, ssOc, ssOa, sspCO2, cocn real cfa2o, avgper, time, tmp, c0, c1, c10, c100, c1e3, c1e6 real p001, p035, p1, C2K, cal2J, tbar_dop, tbar_don, tbar_din15 real tbar_don15, tbar_phytn15, tbar_zoopn15, tbar_detrn15 real tbar_diazn15 real tbar_dic13, dic13flx, tbar_doc13, tbar_phytc13, tbar_zoopc13 real tbar_detrc13, tbar_diazc13 c0 = 0. c1 = 1. c10 = 10. c100 = 100. c1e3 = 1.e3 c1e6 = 1.e6 p001 = 0.001 p035 = 0.035 p1 = 0.1 C2K = 273.15 cal2J = 2.389e-05 !----------------------------------------------------------------------- ! open file and get latest record number !----------------------------------------------------------------------- call opennext (fname, time, ntrec, iou) if (ntrec .le. 0) ntrec = 1 !----------------------------------------------------------------------- ! write 1d data (t) !----------------------------------------------------------------------- call putvars ('time', iou, ntrec, time, c1, c0) call rdstmp (stamp, nyear, nmonth, nday, nhour, nmin, nsec) tmp = nyear call putvars ('T_avgper', iou, ntrec, avgper, c1, c0) call putvars ('O_ke', iou, ntrec, ektot, c10, c0) call putvars ('O_temp', iou, ntrec, tbar1, c1, c0) call putvars ('O_sal', iou, ntrec, tbar2, p001, -p035) call putvars ('O_tempvar', iou, ntrec, travar1, c1, c0) call putvars ('O_salvar', iou, ntrec, tmp, c1, c0) call putvars ('O_absdtemp', iou, ntrec, dtabs1, c1, c0) call putvars ('O_absdsal', iou, ntrec, dtabs2, p001, c0) call putvars ('O_avgiter', iou, ntrec, scan, c1, c0) call putvars ('F_heat', iou, ntrec, hflx, cal2J, c0) call putvars ('F_salt', iou, ntrec, sflx, p1, c0) call putvars ('O_dic', iou, ntrec, tbar_dic, c1, c0) call putvars ('F_dic', iou, ntrec, dicflx, c100, c0) call putvars ('O_c14', iou, ntrec, tbar_c14, c1, c0) call putvars ('O_dc14', iou, ntrec, tbar_dc14, c1, c0) call putvars ('F_c14', iou, ntrec, c14flx, c100, c0) call putvars ('O_alk', iou, ntrec, tbar_alk, c1, c0) call putvars ('O_o2', iou, ntrec, tbar_o2, c1, c0) call putvars ('F_o2', iou, ntrec, o2flx, c100, c0) call putvars ('O_po4', iou, ntrec, tbar_po4, c1e3, c0) call putvars ('O_dop', iou, ntrec, tbar_dop, c1e3, c0) call putvars ('O_phyt', iou, ntrec, tbar_phyt, c1e3, c0) call putvars ('O_zoop', iou, ntrec, tbar_zoop, c1e3, c0) call putvars ('O_detr', iou, ntrec, tbar_detr, c1e3, c0) call putvars ('O_no3', iou, ntrec, tbar_no3, c1e3, c0) call putvars ('O_don', iou, ntrec, tbar_don, c1e3, c0) call putvars ('O_diaz', iou, ntrec, tbar_diaz, c1e3, c0) call putvars ('O_motmax', iou, ntrec, otmax, c1e6, c0) call putvars ('O_motmin', iou, ntrec, otmin, c1e6, c0) call putvars ('O_dsealev', iou, ntrec, slh, c100, c0) call putvars ('O_phsur', iou, ntrec, sspH, c1, c0) call putvars ('O_co3sur', iou, ntrec, ssCO3, c1, c0) call putvars ('O_ocalcsur', iou, ntrec, ssOc, c1, c0) call putvars ('O_oaragsur', iou, ntrec, ssOa, c1, c0) call putvars ('O_pco2sur', iou, ntrec, sspCO2, c1, c0) return end