Changeset 6719
- Timestamp:
- 2016-06-17T20:17:30+02:00 (8 years ago)
- Location:
- branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/CFC/trcsms_cfc.F90
r6715 r6719 82 82 ! 83 83 INTEGER :: ji, jj, jn, jl, jm, js 84 INTEGER :: iyear_beg, iyear_end, iyear_tmp84 INTEGER :: iyear_beg, iyear_end, iyear_tmp 85 85 INTEGER :: im1, im2, ierr 86 86 REAL(wp) :: ztap, zdtap … … 284 284 !! ** Purpose : sets constants for CFC model 285 285 !!--------------------------------------------------------------------- 286 INTEGER :: jl, jn 286 INTEGER :: jl, jn, iyear_beg, iyear_tmp 287 287 288 288 ! coefficient for CFC11 -
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcdms_medusa.F90
r5841 r6719 84 84 REAL(wp), INTENT( in ) :: xqsr !! surface irradiance (W/m2) 85 85 REAL(wp), INTENT( in ) :: xdin !! surface DIN (mmol N/m3) 86 REAL(wp), INTENT( inout ) :: dms_andr !! DMS surface concentration ( mol/m3)87 REAL(wp), INTENT( inout ) :: dms_simo !! DMS surface concentration ( mol/m3)88 REAL(wp), INTENT( inout ) :: dms_aran !! DMS surface concentration ( mol/m3)89 REAL(wp), INTENT( inout ) :: dms_hall !! DMS surface concentration ( mol/m3)86 REAL(wp), INTENT( inout ) :: dms_andr !! DMS surface concentration (nmol/L) 87 REAL(wp), INTENT( inout ) :: dms_simo !! DMS surface concentration (nmol/L) 88 REAL(wp), INTENT( inout ) :: dms_aran !! DMS surface concentration (nmol/L) 89 REAL(wp), INTENT( inout ) :: dms_hall !! DMS surface concentration (nmol/L) 90 90 ! 91 91 REAL(wp) :: CHL, cmr, sw_dms … … 116 116 dms_andr = 2.29 117 117 endif 118 dms_andr = 1.0e-6 * dms_andr119 118 ! 120 119 ! AXY (13/03/15): Simo & Dachs (2002) … … 126 125 dms_simo = fq2 127 126 endif 128 dms_simo = 1.0e-6 * dms_simo129 127 ! 130 128 ! AXY (13/03/15): Aranami & Tsunogai (2004) … … 136 134 dms_aran = fq2 137 135 endif 138 dms_aran = 1.0e-6 * dms_aran139 136 ! 140 137 ! AXY (13/03/15): Halloran et al. (2010) … … 150 147 dms_hall = fq3 151 148 endif 152 dms_hall = 1.0e-6 * dms_hall153 149 154 150 END SUBROUTINE trc_dms_medusa
Note: See TracChangeset
for help on using the changeset viewer.