Changeset 5019


Ignore:
Timestamp:
2015-01-08T17:51:25+01:00 (6 years ago)
Author:
hliu
Message:

change accordingly since the previous update

File:
1 edited

Legend:

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

    r5018 r5019  
    148148        DO jj = 1, jpj 
    149149          DO ji = 1, jpi 
    150             IF(e3t_0(ji,jj,1) < 0._wp) fse3t_a(ji,jj,1:2) = 0.5_wp * rn_wdmin1  
     150            IF(mbathy(ji,jj) == 2 .AND. e3t_0(ji,jj,1) <= 0.5_wp * rn_wdmin1) THEN 
     151             fse3t_a(ji,jj,1:2) = 0.5_wp * rn_wdmin1  
     152            END IF 
    151153          ENDDO 
    152154        ENDDO 
Note: See TracChangeset for help on using the changeset viewer.