- Timestamp:
- 2018-06-22T11:39:58+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r8400 r9830 246 246 z3d(:,:,jk) = wn(:,:,jk) * z2d(:,:) 247 247 END DO 248 CALL lbc_lnk( z3d(:,:,:), 'W', 1. ) 248 249 CALL iom_put( "w_masstr" , z3d ) 249 250 IF( iom_use('w_masstr2') ) CALL iom_put( "w_masstr2", z3d(:,:,:) * z3d(:,:,:) ) … … 334 335 z2d(:,:) = z2d(:,:) + z3d(:,:,jk) 335 336 END DO 337 CALL lbc_lnk( z3d(:,:,:), 'U', -1. ) 336 338 CALL iom_put( "u_masstr", z3d ) ! mass transport in i-direction 339 CALL lbc_lnk( z2d(:,:), 'U', -1. ) 337 340 CALL iom_put( "u_masstr_vint", z2d ) ! mass transport in i-direction vertical sum 338 341 ENDIF … … 370 373 z3d(:,:,jk) = rau0 * vn(:,:,jk) * e1v(:,:) * fse3v(:,:,jk) * vmask(:,:,jk) 371 374 END DO 375 CALL lbc_lnk( z3d(:,:,:), 'V', -1. ) 372 376 CALL iom_put( "v_masstr", z3d ) ! mass transport in j-direction 373 377 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.