Changeset 8023 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90
- Timestamp:
- 2017-05-12T10:21:30+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/air_sea.F90
r7986 r8023 32 32 !! - river inputs 33 33 !!---------------------------------------------------------------------- 34 USE bio_medusa_mod, ONLY: dms_andr, dms_andr2d, dms_aran, & 34 USE bio_medusa_mod, ONLY: f_riv_alk, f_riv_c, f_riv_n, & 35 f_riv_si, f_runoff, & 36 fgco2, & 37 # if defined key_roam 38 dms_andr, dms_andr2d, dms_aran, & 35 39 dms_aran2d, dms_hall, dms_hall2d, & 36 40 dms_simo, dms_simo2d, dms_surf, & 37 dms_surf2d, iters, f_BetaD,&41 dms_surf2d, f_BetaD, & 38 42 f_co2flux, f_co2flux2d, f_co2starair, & 39 43 f_co2starair_2d, f_co3, & … … 50 54 f_pco2w, f_pco2w2d, f_ph, f_pp0, & 51 55 f_pp02d, f_rhosw, & 52 f_riv_alk, f_riv_c, f_riv_n, &53 f_riv_si, f_runoff, &54 56 f_schmidtco2, f_TALK, f_TALK2d, & 55 57 f_TDIC, f_TDIC2d, f_xco2a, f_xco2a_2d, & 56 fgco2, & 57 zalk, zchd, zchn, zdic, zdin, zoxy, & 58 zpho, zsal, zsil, ztmp 58 iters, & 59 zalk, zdic, zoxy, zsal, ztmp, & 60 # endif 61 # if defined key_mocsy 62 zpho, & 63 # endif 64 zchd, zchn, zdin, zsil 59 65 USE dom_oce, ONLY: e3t_0, e3t_n, gphit, tmask 60 USE gastransfer, ONLY: gas_transfer 66 # if defined key_iomput 61 67 USE iom, ONLY: lk_iomput 68 # endif 62 69 USE in_out_manager, ONLY: lwp, numout 63 USE mocsy_wrapper, ONLY: mocsy_interface64 70 USE oce, ONLY: PCO2a_in_cpl 65 71 USE par_oce, ONLY: jpim1, jpjm1 … … 72 78 zn_dms_mld, zn_dms_qsr 73 79 USE trc, ONLY: med_diag 80 USE zdfmxl, ONLY: hmld 81 82 # if defined key_roam 83 USE gastransfer, ONLY: gas_transfer 84 # if defined key_mocsy 85 USE mocsy_wrapper, ONLY: mocsy_interface 86 # else 74 87 USE trcco2_medusa, ONLY: trc_co2_medusa 88 # endif 75 89 USE trcdms_medusa, ONLY: trc_dms_medusa 76 90 USE trcoxy_medusa, ONLY: trc_oxy_medusa 77 USE zdfmxl, ONLY: hmld 91 # endif 78 92 79 93 !!* Substitution … … 83 97 INTEGER, INTENT( in ) :: kt 84 98 99 # if defined key_roam 85 100 !! jpalm 14-07-2016: convert CO2flux diag from mmol/m2/d to kg/m2/s 86 101 REAL, PARAMETER :: weight_CO2_mol = 44.0095 !! g / mol 87 102 REAL, PARAMETER :: secs_in_day = 86400.0 !! s / d 88 103 REAL, PARAMETER :: CO2flux_conv = (1.e-6 * weight_CO2_mol) / secs_in_day 104 # endif 89 105 90 106 INTEGER :: ji, jj
Note: See TracChangeset
for help on using the changeset viewer.