Changeset 5841 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcini_medusa.F90
- Timestamp:
- 2015-10-30T12:48:06+01: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
r5741 r5841 38 38 !! JPALM (14/09/15) 39 39 LOGICAL, PUBLIC :: & 40 ln_ccd = . FALSE.40 ln_ccd = .TRUE. 41 41 42 42 INTEGER :: & … … 236 236 237 237 !!---------------------------------------------------------------------- 238 !! Averaged properties for DMS calculations (various units) 239 !!---------------------------------------------------------------------- 240 !! 241 !! these store temporally averaged properties for DMS calculations (AXY, 07/07/15) 242 zb_dms_chn(:,:) = 0.0 !! CHN 243 zn_dms_chn(:,:) = 0.0 244 za_dms_chn(:,:) = 0.0 245 zb_dms_chd(:,:) = 0.0 !! CHD 246 zn_dms_chd(:,:) = 0.0 247 za_dms_chd(:,:) = 0.0 248 zb_dms_mld(:,:) = 0.0 !! MLD 249 zn_dms_mld(:,:) = 0.0 250 za_dms_mld(:,:) = 0.0 251 zb_dms_qsr(:,:) = 0.0 !! QSR 252 zn_dms_qsr(:,:) = 0.0 253 za_dms_qsr(:,:) = 0.0 254 zb_dms_din(:,:) = 0.0 !! DIN 255 zn_dms_din(:,:) = 0.0 256 za_dms_din(:,:) = 0.0 257 !! 258 IF(lwp) WRITE(numout,*) ' trc_ini_medusa: average fields for DMS initialised to zero' 259 IF(lwp) CALL flush(numout) 260 261 !!---------------------------------------------------------------------- 238 262 !! AXY (04/11/13): initialise fields previously done by trc_sed_medusa 239 263 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.