Changeset 4477 for branches/2011
- Timestamp:
- 2014-02-04T13:19:00+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/partition_mod.F90
r4469 r4477 707 707 IF (ierr .NE. 0) THEN 708 708 IF (lwp) THEN 709 WRITE (numout,*) 'partition_mca_rk: failed to apply select ionpartition'709 WRITE (numout,*) 'partition_mca_rk: failed to apply selected partition' 710 710 END IF 711 711 RETURN … … 847 847 ! Check that there are sufficient points to factorise. 848 848 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' 851 850 ierr = 1 852 851 RETURN … … 873 872 ngone = 0 874 873 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 875 882 isub_new = isub_old + (isub-1)*nprocp/nsub_new 876 883 #if defined PARTIT_DEBUG … … 995 1002 ngone = 0 996 1003 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 997 1012 isub_new = isub_old + (isub-1)*nprocp/nsub_new 998 1013 #if defined PARTIT_DEBUG
Note: See TracChangeset
for help on using the changeset viewer.