Changeset 12309
- Timestamp:
- 2020-01-10T12:53:25+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/OCE/TRA/tramle.F90
r12217 r12309 151 151 ELSE !do not use osn_mle 152 152 ! !== MLD used for MLE ==! 153 ! ! co nvert density into buoyancy153 ! ! compute from the 10m density to deal with the diurnal cycle 154 154 inml_mle(:,:) = mbkt(:,:) + 1 ! init. to number of ocean w-level (T-level + 1) 155 155 IF ( nla10 > 0 ) THEN ! avoid case where first level is thicker than 10m … … 162 162 END DO 163 163 ENDIF 164 ikmax = MIN( MAXVAL( inml_mle(:,:) ), jpkm1 ) ! max level of the computation 164 165 165 166 ! … … 203 204 END SELECT 204 205 ! ! convert density into buoyancy 205 ikmax = MIN( MAXVAL( inml_mle(:,:) ), jpkm1 ) ! max level of the computation206 206 zbm(:,:) = + grav * zbm(:,:) / MAX( e3t_n(:,:,1), zmld(:,:) ) 207 207 ! … … 352 352 WRITE(numout,*) ' Density difference used to define ML for FK rn_rho_c_mle = ', rn_rho_c_mle 353 353 ENDIF 354 355 356 IF( ln_osm_mle .AND. ln_mle ) THEN 357 WRITE(numout,*) 'WARNING: You are running with both OSM-FK and default FK' 358 ! CALL ctl_stop('STOP in zdf_osm_init: Cannot run with both OSM-FK and default FK') 359 END IF 360 361 IF(lwp) THEN 354 ! 355 IF(lwp) THEN 362 356 WRITE(numout,*) 363 357 IF( ln_mle ) THEN
Note: See TracChangeset
for help on using the changeset viewer.