Changeset 10196 for branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90
- Timestamp:
- 2018-10-16T12:15:14+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90
r10047 r10196 9 9 !! - ! 2017-08 (A. Yool) Slow detritus, ML-avg chl variables 10 10 !! - ! 2018-08 (A. Yool) add OMIP preindustrial DIC 11 !! - ! 2018-10 (A. Yool) Add air-sea DMS flux 11 12 !!---------------------------------------------------------------------- 12 13 #if defined key_medusa … … 184 185 185 186 !! Add DMS in MEDUSA for UKESM1 model 186 REAL(wp) :: dms_surf,dms_andm 187 REAL(wp) :: dms_surf,dms_andm,dms_flux 187 188 !! AXY (13/03/15): add in other DMS calculations 188 189 REAL(wp) :: dms_andr,dms_simo,dms_aran,dms_hall … … 240 241 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_andr2d, dms_simo2d, dms_aran2d 241 242 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_hall2d, dms_andm2d, dms_surf2d 243 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: dms_flux2d 242 244 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: iben_n2d, iben_fe2d, iben_c2d 243 245 REAL(wp), ALLOCATABLE, DIMENSION(:,:) :: iben_si2d, iben_ca2d, oben_n2d
Note: See TracChangeset
for help on using the changeset viewer.