Changeset 15293 for NEMO/trunk/src/OCE/ZDF/zdfphy.F90
- Timestamp:
- 2021-09-27T17:43:00+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/ZDF/zdfphy.F90
r15249 r15293 381 381 IF( iom_use('avt_k') .OR. iom_use('avm_k') .OR. iom_use('eshear_k') .OR. iom_use('estrat_k') ) THEN 382 382 IF( l_zdfsh2 ) THEN 383 DO_2D( nn_hls-1, nn_hls-1, nn_hls-1, nn_hls-1 )384 zsh2(ji,jj,1 ) = 0._wp385 zsh2(ji,jj,jpk) = 0._wp386 END_2D387 383 CALL iom_put( 'avt_k' , avt_k * wmask ) 388 384 CALL iom_put( 'avm_k' , avm_k * wmask )
Note: See TracChangeset
for help on using the changeset viewer.