- Timestamp:
- 2018-11-15T17:27:18+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/trcrst.F90
r10297 r10314 316 316 ! 317 317 DO jn = 1, jptra 318 ztraf = glob_sum( trn(:,:,:,jn) * zvol(:,:,:) )318 ztraf = glob_sum( 'trcrst', trn(:,:,:,jn) * zvol(:,:,:) ) 319 319 zmin = MINVAL( trn(:,:,:,jn), mask= ((tmask*SPREAD(tmask_i,DIM=3,NCOPIES=jpk).NE.0.)) ) 320 320 zmax = MAXVAL( trn(:,:,:,jn), mask= ((tmask*SPREAD(tmask_i,DIM=3,NCOPIES=jpk).NE.0.)) )
Note: See TracChangeset
for help on using the changeset viewer.