Changeset 8594


Ignore:
Timestamp:
2017-10-05T10:32:46+02:00 (3 years ago)
Author:
flavoni
Message:

C665, stop : don't apply modification at Equator when mesh is given in Km and s-coordinates

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r7524 r8594  
    19701970      hbatt(:,:) = zenv(:,:)  
    19711971      IF( MINVAL( gphit(:,:) ) * MAXVAL( gphit(:,:) ) <= 0._wp ) THEN 
     1972      IF ( jphgr_msh == 2 .OR. jphgr_msh == 3) CALL ctl_stop( 'dom:zgr_sco:  if jphgr_msh = 2 or 3 and  &   
     1973                                & s-coordinates stop, if not correction at Equator is applied, but it is wrong') 
    19721974         CALL ctl_warn( ' s-coordinates are tapered in vicinity of the Equator' ) 
    19731975         DO jj = 1, jpj 
Note: See TracChangeset for help on using the changeset viewer.