Changeset 6107 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM
- Timestamp:
- 2015-12-17T18:44:49+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r6106 r6107 208 208 !! 209 209 IF(lwp) WRITE(numout,*) ' MEDUSA averaged properties for DMS present - reading in ...' 210 CALL iom_get( knum, jpdom_autoglo, 'B_DMS_CHN', zb_dms_chn(:,:) )211 CALL iom_get( knum, jpdom_autoglo, 'N_DMS_CHN', zn_dms_chn(:,:) )212 CALL iom_get( knum, jpdom_autoglo, 'B_DMS_CHD', zb_dms_chd(:,:) )213 CALL iom_get( knum, jpdom_autoglo, 'N_DMS_CHD', zn_dms_chd(:,:) )214 CALL iom_get( knum, jpdom_autoglo, 'B_DMS_MLD', zb_dms_mld(:,:) )215 CALL iom_get( knum, jpdom_autoglo, 'N_DMS_MLD', zn_dms_mld(:,:) )216 CALL iom_get( knum, jpdom_autoglo, 'B_DMS_QSR', zb_dms_qsr(:,:) )217 CALL iom_get( knum, jpdom_autoglo, 'N_DMS_QSR', zn_dms_qsr(:,:) )218 CALL iom_get( knum, jpdom_autoglo, 'B_DMS_DIN', zb_dms_din(:,:) )219 CALL iom_get( knum, jpdom_autoglo, 'N_DMS_DIN', zn_dms_din(:,:) )210 CALL iom_get( numrtr, jpdom_autoglo, 'B_DMS_CHN', zb_dms_chn(:,:) ) 211 CALL iom_get( numrtr, jpdom_autoglo, 'N_DMS_CHN', zn_dms_chn(:,:) ) 212 CALL iom_get( numrtr, jpdom_autoglo, 'B_DMS_CHD', zb_dms_chd(:,:) ) 213 CALL iom_get( numrtr, jpdom_autoglo, 'N_DMS_CHD', zn_dms_chd(:,:) ) 214 CALL iom_get( numrtr, jpdom_autoglo, 'B_DMS_MLD', zb_dms_mld(:,:) ) 215 CALL iom_get( numrtr, jpdom_autoglo, 'N_DMS_MLD', zn_dms_mld(:,:) ) 216 CALL iom_get( numrtr, jpdom_autoglo, 'B_DMS_QSR', zb_dms_qsr(:,:) ) 217 CALL iom_get( numrtr, jpdom_autoglo, 'N_DMS_QSR', zn_dms_qsr(:,:) ) 218 CALL iom_get( numrtr, jpdom_autoglo, 'B_DMS_DIN', zb_dms_din(:,:) ) 219 CALL iom_get( numrtr, jpdom_autoglo, 'N_DMS_DIN', zn_dms_din(:,:) ) 220 220 ELSE 221 221 !! NO; in which case set them to zero … … 343 343 !! 344 344 IF(lwp) WRITE(numout,*) ' MEDUSA averaged properties for DMS - writing out ...' 345 CALL iom_rstput( kt, kitrst, knum, 'B_DMS_CHN', zb_dms_chn(:,:) )346 CALL iom_rstput( kt, kitrst, knum, 'N_DMS_CHN', zn_dms_chn(:,:) )347 CALL iom_rstput( kt, kitrst, knum, 'B_DMS_CHD', zb_dms_chd(:,:) )348 CALL iom_rstput( kt, kitrst, knum, 'N_DMS_CHD', zn_dms_chd(:,:) )349 CALL iom_rstput( kt, kitrst, knum, 'B_DMS_MLD', zb_dms_mld(:,:) )350 CALL iom_rstput( kt, kitrst, knum, 'N_DMS_MLD', zn_dms_mld(:,:) )351 CALL iom_rstput( kt, kitrst, knum, 'B_DMS_QSR', zb_dms_qsr(:,:) )352 CALL iom_rstput( kt, kitrst, knum, 'N_DMS_QSR', zn_dms_qsr(:,:) )353 CALL iom_rstput( kt, kitrst, knum, 'B_DMS_DIN', zb_dms_din(:,:) )354 CALL iom_rstput( kt, kitrst, knum, 'N_DMS_DIN', zn_dms_din(:,:) )345 CALL iom_rstput( kt, nitrst, numrtw, 'B_DMS_CHN', zb_dms_chn(:,:) ) 346 CALL iom_rstput( kt, nitrst, numrtw, 'N_DMS_CHN', zn_dms_chn(:,:) ) 347 CALL iom_rstput( kt, nitrst, numrtw, 'B_DMS_CHD', zb_dms_chd(:,:) ) 348 CALL iom_rstput( kt, nitrst, numrtw, 'N_DMS_CHD', zn_dms_chd(:,:) ) 349 CALL iom_rstput( kt, nitrst, numrtw, 'B_DMS_MLD', zb_dms_mld(:,:) ) 350 CALL iom_rstput( kt, nitrst, numrtw, 'N_DMS_MLD', zn_dms_mld(:,:) ) 351 CALL iom_rstput( kt, nitrst, numrtw, 'B_DMS_QSR', zb_dms_qsr(:,:) ) 352 CALL iom_rstput( kt, nitrst, numrtw, 'N_DMS_QSR', zn_dms_qsr(:,:) ) 353 CALL iom_rstput( kt, nitrst, numrtw, 'B_DMS_DIN', zb_dms_din(:,:) ) 354 CALL iom_rstput( kt, nitrst, numrtw, 'N_DMS_DIN', zn_dms_din(:,:) ) 355 355 !! 356 356 !! calculate stats on these fields
Note: See TracChangeset
for help on using the changeset viewer.