Changeset 8868 for branches/2017/dev_METO_2017/NEMOGCM/TOOLS/DOMAINcfg/src/domzgr.f90

Timestamp:

2017-12-01T09:43:23+01:00 (6 years ago)

Author:

timgraham

Message:

Merged dev_r8789_sbc into branch

File:

• branches/2017/dev_METO_2017/NEMOGCM/TOOLS/DOMAINcfg/src/domzgr.f90 (modified) (1 diff)

branches/2017/dev_METO_2017/NEMOGCM/TOOLS/DOMAINcfg/src/domzgr.f90

@@ -2078 +2078 @@
       hbatt(:,:) = zenv(:,:) 
       IF( MINVAL( gphit(:,:) ) * MAXVAL( gphit(:,:) ) <= 0._wp ) THEN
+          IF ( jphgr_msh == 2 .OR. jphgr_msh == 3) CALL ctl_stop( 'dom:zgr_sco:  if jphgr_msh = 2 or 3 and  & 
+                                      & s-coordinates stop, if not correction at Equator is applied, but it is wrong')
          CALL ctl_warn( ' s-coordinates are tapered in vicinity of the Equator' )
          DO jj = 1, jpj