Changeset 6245 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM
- Timestamp:
- 2016-01-13T17:40:57+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
r6234 r6245 578 578 INTEGER :: jk, jn 579 579 REAL(wp) :: ztraf, zmin, zmax, zmean, zdrift 580 REAL(wp), DIMENSION(jpi,jpj ,jpk) :: zvol580 REAL(wp), DIMENSION(jpi,jpj) :: zvol 581 581 !!---------------------------------------------------------------------- 582 582 … … 587 587 ENDIF 588 588 ! 589 DO jk = 1, jpk 590 zvol(:,:,jk) = e1e2t(:,:) * fse3t_a(:,:,jk) * tmask(:,:,jk) 591 END DO 592 ! 589 zvol(:,:) = e1e2t(:,:) * fse3t_a(:,:,1) * tmask(:,:,1) 593 590 DO jn = 1, jptra 594 ztraf = glob_sum( tra(:,:,1,jn) * zvol(:,: ,:) )591 ztraf = glob_sum( tra(:,:,1,jn) * zvol(:,:) ) 595 592 zmin = MINVAL( tra(:,:,1,jn), mask= ((tmask(:,:,1).NE.0.)) ) 596 593 zmax = MAXVAL( tra(:,:,1,jn), mask= ((tmask(:,:,1).NE.0.)) )
Note: See TracChangeset
for help on using the changeset viewer.