Changeset 4754

Timestamp:

2014-09-01T16:11:15+02:00 (10 years ago)

Author:

rfurner

Message:

change to give a one level model in surge case

File:

• branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (1 diff)

branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -1444 +1444 @@
          DO ji = 1, jpi
             DO jk = 1, jpkm1
+#if key_surge
+               IF( scobot(ji,jj) >= fsdept(ji,jj,jk) )   mbathy(ji,jj) = MAX( 1, jk )
+#else
                IF( scobot(ji,jj) >= fsdept(ji,jj,jk) )   mbathy(ji,jj) = MAX( 2, jk )
+#endif
                IF( scobot(ji,jj) == 0._wp            )   mbathy(ji,jj) = 0
             END DO