- Timestamp:
- 2021-09-14T18:31:24+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/NERC/dev_r4.0.6_GEOMETRIC/tests/CANAL/MY_SRC/diawri.F90
r13284 r15260 212 212 ENDIF 213 213 214 CALL iom_put( "woce", wn ) ! vertical velocity 214 ! ! vertical velocity 215 IF( ln_zad_Aimp ) THEN ; CALL iom_put( "woce", wn + wi ) ! explicit plus implicit parts 216 ELSE ; CALL iom_put( "woce", wn ) 217 ENDIF 218 215 219 IF( iom_use('w_masstr') .OR. iom_use('w_masstr2') ) THEN ! vertical mass transport & its square value 216 ! Caution: in the VVL case, it only correponds to the baroclinic mass transport. 217 z2d(:,:) = rau0 * e1e2t(:,:) 220 ! ! Caution: in the VVL case, it only correponds to the baroclinic mass transport. 218 221 DO jk = 1, jpk 219 z3d(:,:,jk) = wn(:,:,jk) * z2d(:,:) 222 IF( ln_zad_Aimp ) THEN 223 z3d(:,:,jk) = rau0 * e1e2t(:,:) * ( wn(:,:,jk) + wi(:,:,jk) ) 224 ELSE 225 z3d(:,:,jk) = rau0 * e1e2t(:,:) * wn(:,:,jk) 226 ENDIF 220 227 END DO 221 228 CALL iom_put( "w_masstr" , z3d ) 222 IF( iom_use('w_masstr2') ) CALL iom_put( "w_masstr2", z3d (:,:,:) * z3d(:,:,:))229 IF( iom_use('w_masstr2') ) CALL iom_put( "w_masstr2", z3d * z3d ) 223 230 ENDIF 224 231
Note: See TracChangeset
for help on using the changeset viewer.