- Timestamp:
- 2014-09-01T16:11:15+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/2014_Surge_Modelling/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r4624 r4754 1444 1444 DO ji = 1, jpi 1445 1445 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 1446 1449 IF( scobot(ji,jj) >= fsdept(ji,jj,jk) ) mbathy(ji,jj) = MAX( 2, jk ) 1450 #endif 1447 1451 IF( scobot(ji,jj) == 0._wp ) mbathy(ji,jj) = 0 1448 1452 END DO
Note: See TracChangeset
for help on using the changeset viewer.