Changeset 12221


Ignore:
Timestamp:
2019-12-12T17:01:46+01:00 (5 months ago)
Author:
agn
Message:

relax hmle to hbl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11078_OSMOSIS_IMMERSE_Nurser/src/OCE/ZDF/zdfosm.F90

    r12218 r12221  
    19141914          ELSE 
    19151915            ! MLE layer relaxes towards mixed layer depth on timescale tau_mle, or tau_mle/10 
    1916              IF ( hmle(ji,jj) > zmld(ji,jj) ) THEN 
    1917                hmle(ji,jj) = hmle(ji,jj) - ( hmle(ji,jj) - zmld(ji,jj) ) * rn_rdt / rn_osm_mle_tau 
     1916             ! IF ( hmle(ji,jj) > zmld(ji,jj) ) THEN 
     1917             !   hmle(ji,jj) = hmle(ji,jj) - ( hmle(ji,jj) - zmld(ji,jj) ) * rn_rdt / rn_osm_mle_tau 
     1918             ! ELSE 
     1919             !   hmle(ji,jj) = hmle(ji,jj) - 10.0 * ( hmle(ji,jj) - zmld(ji,jj) ) * rn_rdt / rn_osm_mle_tau ! fast relaxation if MLE layer shallower than MLD 
     1920             ! ENDIF 
     1921             IF ( hmle(ji,jj) > hbl(ji,jj) ) THEN 
     1922               hmle(ji,jj) = hmle(ji,jj) - ( hmle(ji,jj) - hbl(ji,jj) ) * rn_rdt / rn_osm_mle_tau 
    19181923             ELSE 
    1919                hmle(ji,jj) = hmle(ji,jj) - 10.0 * ( hmle(ji,jj) - zmld(ji,jj) ) * rn_rdt / rn_osm_mle_tau ! fast relaxation if MLE layer shallower than MLD 
     1924               hmle(ji,jj) = hmle(ji,jj) - 10.0 * ( hmle(ji,jj) - hbl(ji,jj) ) * rn_rdt / rn_osm_mle_tau ! fast relaxation if MLE layer shallower than MLD 
    19201925             ENDIF 
    19211926          ENDIF 
Note: See TracChangeset for help on using the changeset viewer.