Changeset 8868 for branches/2017/dev_METO_2017/NEMOGCM/TOOLS/DOMAINcfg
- Timestamp:
- 2017-12-01T09:43:23+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_METO_2017/NEMOGCM/TOOLS/DOMAINcfg/src/domzgr.f90
r7200 r8868 2078 2078 hbatt(:,:) = zenv(:,:) 2079 2079 IF( MINVAL( gphit(:,:) ) * MAXVAL( gphit(:,:) ) <= 0._wp ) THEN 2080 IF ( jphgr_msh == 2 .OR. jphgr_msh == 3) CALL ctl_stop( 'dom:zgr_sco: if jphgr_msh = 2 or 3 and & 2081 & s-coordinates stop, if not correction at Equator is applied, but it is wrong') 2080 2082 CALL ctl_warn( ' s-coordinates are tapered in vicinity of the Equator' ) 2081 2083 DO jj = 1, jpj
Note: See TracChangeset
for help on using the changeset viewer.