- Timestamp:
- 2018-08-08T17:12:35+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_GO6_under_ice_relax/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r8400 r10047 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(:,:,:) ) … … 252 253 CALL iom_put( "avt" , avt ) ! T vert. eddy diff. coef. 253 254 CALL iom_put( "avm" , avmu ) ! T vert. eddy visc. coef. 255 #if defined key_zdftke 254 256 IF( lk_zdftke ) THEN 255 257 CALL iom_put( "tke" , en ) ! TKE budget: Turbulent Kinetic Energy 256 258 CALL iom_put( "tke_niw" , e_niw ) ! TKE budget: Near-inertial waves 257 259 ENDIF 260 #endif 258 261 CALL iom_put( "avs" , fsavs(:,:,:) ) ! S vert. eddy diff. coef. (useful only with key_zdfddm) 259 262 ! Log of eddy diff coef … … 334 337 z2d(:,:) = z2d(:,:) + z3d(:,:,jk) 335 338 END DO 339 CALL lbc_lnk( z3d(:,:,:), 'U', -1. ) 336 340 CALL iom_put( "u_masstr", z3d ) ! mass transport in i-direction 341 CALL lbc_lnk( z2d(:,:), 'U', -1. ) 337 342 CALL iom_put( "u_masstr_vint", z2d ) ! mass transport in i-direction vertical sum 338 343 ENDIF … … 370 375 z3d(:,:,jk) = rau0 * vn(:,:,jk) * e1v(:,:) * fse3v(:,:,jk) * vmask(:,:,jk) 371 376 END DO 377 CALL lbc_lnk( z3d(:,:,:), 'V', -1. ) 372 378 CALL iom_put( "v_masstr", z3d ) ! mass transport in j-direction 373 379 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.