Changeset 10023 for NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/ZDF
- Timestamp:
- 2018-08-02T08:19:03+02:00 (6 years ago)
- Location:
- NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/ZDF
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/ZDF/zdfmxl.F90
r9939 r10023 126 126 IF( .NOT.l_offline ) THEN 127 127 IF( iom_use("mldr10_1") ) THEN 128 IF( ln_isfcav ) THEN ; CALL iom_put( "mldr10_1", hmlp - risfdep) ! mixed layer thickness129 ELSE ; CALL iom_put( "mldr10_1", hmlp ) 128 IF( ln_isfcav ) THEN ; CALL iom_put( "mldr10_1", hmlp - ht_isf) ! mixed layer thickness 129 ELSE ; CALL iom_put( "mldr10_1", hmlp ) ! mixed layer depth 130 130 END IF 131 131 END IF 132 132 IF( iom_use("mldkz5") ) THEN 133 IF( ln_isfcav ) THEN ; CALL iom_put( "mldkz5" , hmld - risfdep) ! turbocline thickness134 ELSE ; CALL iom_put( "mldkz5" , hmld ) 133 IF( ln_isfcav ) THEN ; CALL iom_put( "mldkz5" , hmld - ht_isf ) ! turbocline thickness 134 ELSE ; CALL iom_put( "mldkz5" , hmld ) ! turbocline depth 135 135 END IF 136 136 ENDIF -
NEMO/branches/2018/dev_r9838_ENHANCE04_RK3/src/OCE/ZDF/zdftke.F90
r9939 r10023 392 392 ! ! TKE due to surface and internal wave breaking 393 393 ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 394 !!gm BUG : in the exp remove the depth of ssh !!! 394 !!gm BUG : in the exp remove the depth of ssh !!! ===>>> not sure of that 395 395 !!gm i.e. use gde3w in argument (pdepw) 396 396 … … 518 518 !!gm Not sure of that coding for ISF.... 519 519 ! where wmask = 0 set zmxlm == p_e3w 520 521 !!gm pdepw(ji,jj,mikt(ji,jj)+1) = ht_n .... 522 !!gm pdepw(ji,jj,mikt(ji,jj)) = ht_isf(:,:) + ssh(:,:,Nnn) 523 520 524 CASE ( 0 ) ! bounded by the distance to surface and bottom 521 525 DO jk = 2, jpkm1
Note: See TracChangeset
for help on using the changeset viewer.