Changeset 6715 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90
- Timestamp:
- 2016-06-16T18:58:14+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90
r6173 r6715 258 258 IF(lwp) WRITE(numout,*) ' trc_ini_medusa: average fields for DMS initialised to zero' 259 259 IF(lwp) CALL flush(numout) 260 260 !! 261 !!--------------------------------------------------------------------- 262 !!JPALM (14-06-2016): init dms and co2 flux for coupling with atm (UKESM) 263 !!--------------------------------------------------------------------- 264 !! 265 zb_co2_flx(:,:) = 0.0 !! CHN 266 zn_co2_flx(:,:) = 0.0 267 za_co2_flx(:,:) = 0.0 268 zb_dms_srf(:,:) = 0.0 !! CHD 269 zn_dms_srf(:,:) = 0.0 270 za_dms_srf(:,:) = 0.0 271 !! 272 IF(lwp) WRITE(numout,*) ' trc_ini_medusa: DMS and CO2 flux (UKESM) initialised to zero' 273 IF(lwp) CALL flush(numout) 274 !! 261 275 !!---------------------------------------------------------------------- 262 276 !! AXY (04/11/13): initialise fields previously done by trc_sed_medusa
Note: See TracChangeset
for help on using the changeset viewer.