Changeset 6227 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM
- Timestamp:
- 2016-01-08T13:19:16+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
r6226 r6227 48 48 PUBLIC trc_rst_cal 49 49 PUBLIC trc_rst_stat 50 PUBLIC trc_rst_dia_stat 50 51 51 52 !! * Substitutions … … 671 672 ztraf = glob_sum( dgtr(:,:) * zvol(:,:) ) 672 673 areasf = glob_sum(e1e2t(:,:) * tmask(:,:,1) ) 673 zmin = MINVAL( dgtr(:,:), mask= ((tmask(:,:,1) *SPREAD(tmask_i,DIM=2,NCOPIES=1).NE.0.)) )674 zmax = MAXVAL( dgtr(:,:), mask= ((tmask(:,:,1) *SPREAD(tmask_i,DIM=2,NCOPIES=1).NE.0.)) )674 zmin = MINVAL( dgtr(:,:), mask= ((tmask(:,:,1).NE.0.)) ) 675 zmax = MAXVAL( dgtr(:,:), mask= ((tmask(:,:,1).NE.0.)) ) 675 676 IF( lk_mpp ) THEN 676 677 CALL mpp_min( zmin ) ! min over the global domain
Note: See TracChangeset
for help on using the changeset viewer.