Changeset 4605 for trunk/NEMOGCM/NEMO/OPA_SRC/TRD/trdicp.F90
- Timestamp:
- 2014-03-28T11:46:11+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/TRD/trdicp.F90
r4313 r4605 213 213 tvolt = 0._wp 214 214 DO jk = 1, jpkm1 215 tvolt = SUM( e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk) * tmask_i(:,:) )215 tvolt = tvolt + SUM( e1e2t(:,:) * fse3t(:,:,jk) * tmask(:,:,jk) * tmask_i(:,:) ) 216 216 END DO 217 217 IF( lk_mpp ) CALL mpp_sum( tvolt ) ! sum over the global domain … … 226 226 tvolu = 0._wp 227 227 tvolv = 0._wp 228 229 228 DO jk = 1, jpk 230 229 DO jj = 2, jpjm1
Note: See TracChangeset
for help on using the changeset viewer.