Changeset 4477


Ignore:
Timestamp:
2014-02-04T13:19:00+01:00 (7 years ago)
Author:
trackstand2
Message:

Add check to catch case where run out of space for domains while partitioning

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/partition_mod.F90

    r4469 r4477  
    707707      IF (ierr .NE. 0) THEN 
    708708         IF (lwp) THEN 
    709             WRITE (numout,*) 'partition_mca_rk: failed to apply selection partition' 
     709            WRITE (numout,*) 'partition_mca_rk: failed to apply selected partition' 
    710710         END IF 
    711711         RETURN 
     
    847847                ! Check that there are sufficient points to factorise. 
    848848                IF ( pieub(isub_old)-pielb(isub_old)+1.LT.f ) THEN 
    849                    WRITE (numout,*)  & 
    850                         'partition_rk: insufficient points to partition' 
     849                   WRITE (*,*) 'partition_rk_core: insufficient points to partition' 
    851850                   ierr = 1 
    852851                   RETURN 
     
    873872                ngone = 0 
    874873                DO isub=1,f,1 
     874 
     875                   IF(ist >= nx)THEN 
     876                      WRITE (*,*) 'partition_rk_core: ERROR: have reached upper x-bound of global' 
     877                      WRITE (*,*) 'domain but have factors remaining: partitioning failed.' 
     878                      ierr = 1 
     879                      RETURN  
     880                   END IF 
     881 
    875882                   isub_new = isub_old + (isub-1)*nprocp/nsub_new 
    876883#if defined PARTIT_DEBUG 
     
    9951002                ngone = 0 
    9961003                DO isub=1,f 
     1004 
     1005                   IF(jst >= ny)THEN 
     1006                      WRITE (*,*) 'partition_rk_core: ERROR: have reached upper y-bound of global' 
     1007                      WRITE (*,*) 'domain but have factors remaining: partitioning failed.' 
     1008                      ierr = 1 
     1009                      RETURN  
     1010                   END IF 
     1011 
    9971012                   isub_new = isub_old + (isub-1)*nprocp/nsub_new 
    9981013#if defined PARTIT_DEBUG 
Note: See TracChangeset for help on using the changeset viewer.