Changeset 12310


Ignore:
Timestamp:
2020-01-10T13:49:04+01:00 (3 weeks ago)
Author:
agn
Message:

require ln_zdfom=.T. as well as ln_osm_mle=.T. for integrated FK-OSM code to be called in tramle.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/OCE/TRA/tramle.F90

    r12309 r12310  
    2121   USE lbclnk         ! lateral boundary condition / mpp link 
    2222 
     23   ! where OSMOSIS_OBL is used with integrated FK 
     24   USE zdf_oce, ONLY : ln_zdfosm 
    2325   USE zdfosm, ONLY  : ln_osm_mle, hmle, dbdx_mle, dbdy_mle, mld_prof 
    2426 
     
    9799    ! 
    98100    ! 
    99     IF(ln_osm_mle) THEN 
     101    IF(ln_osm_mle.and.ln_zdfosm) THEN 
    100102       ikmax = MIN( MAXVAL( mld_prof(:,:) ), jpkm1 )                  ! max level of the computation 
    101103       ! 
     
    294296    IF( cdtype == 'TRA') THEN              !==  outputs  ==! 
    295297       ! 
    296        IF (ln_osm_mle) THEN 
     298       IF (ln_osm_mle.and.ln_zdfosm) THEN 
    297299          zLf_NH(:,:) = SQRT( rb_c * hmle(:,:) ) * r1_ft(:,:)      ! Lf = N H / f 
    298300       ELSE 
Note: See TracChangeset for help on using the changeset viewer.