Changeset 12310
- Timestamp:
- 2020-01-10T13:49:04+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/OCE/TRA/tramle.F90
r12309 r12310 21 21 USE lbclnk ! lateral boundary condition / mpp link 22 22 23 ! where OSMOSIS_OBL is used with integrated FK 24 USE zdf_oce, ONLY : ln_zdfosm 23 25 USE zdfosm, ONLY : ln_osm_mle, hmle, dbdx_mle, dbdy_mle, mld_prof 24 26 … … 97 99 ! 98 100 ! 99 IF(ln_osm_mle ) THEN101 IF(ln_osm_mle.and.ln_zdfosm) THEN 100 102 ikmax = MIN( MAXVAL( mld_prof(:,:) ), jpkm1 ) ! max level of the computation 101 103 ! … … 294 296 IF( cdtype == 'TRA') THEN !== outputs ==! 295 297 ! 296 IF (ln_osm_mle ) THEN298 IF (ln_osm_mle.and.ln_zdfosm) THEN 297 299 zLf_NH(:,:) = SQRT( rb_c * hmle(:,:) ) * r1_ft(:,:) ! Lf = N H / f 298 300 ELSE
Note: See TracChangeset
for help on using the changeset viewer.