Changeset 5018


Ignore:
Timestamp:
2015-01-08T16:17:16+01:00 (6 years ago)
Author:
hliu
Message:

a small change for Wetting/Drying? branch

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

    r5014 r5018  
    879879              DO jj = 1, jpj 
    880880                DO ji = 1, jpi 
    881                   IF(e3t_0(ji,jj,1) < 0._wp) THEN 
     881                  !IF(e3t_0(ji,jj,1) < 0._wp) THEN 
     882                  IF(mbathy(ji,jj) == 2 .AND. e3t_0(ji,jj,1) <= 0.5_wp * rn_wdmin1) THEN 
    882883                    fse3t_b(ji,jj,1:2) = 0.5_wp * rn_wdmin1  
    883884                    fse3t_n(ji,jj,1:2) = 0.5_wp * rn_wdmin1  
Note: See TracChangeset for help on using the changeset viewer.