Changeset 4754


Ignore:
Timestamp:
2014-09-01T16:11:15+02:00 (6 years ago)
Author:
rfurner
Message:

change to give a one level model in surge case

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r4624 r4754  
    14441444         DO ji = 1, jpi 
    14451445            DO jk = 1, jpkm1 
     1446#if key_surge 
     1447               IF( scobot(ji,jj) >= fsdept(ji,jj,jk) )   mbathy(ji,jj) = MAX( 1, jk ) 
     1448#else 
    14461449               IF( scobot(ji,jj) >= fsdept(ji,jj,jk) )   mbathy(ji,jj) = MAX( 2, jk ) 
     1450#endif 
    14471451               IF( scobot(ji,jj) == 0._wp            )   mbathy(ji,jj) = 0 
    14481452            END DO 
Note: See TracChangeset for help on using the changeset viewer.