- Timestamp:
- 2012-11-28T11:02:28+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r3680 r3703 744 744 IF(lwp) THEN ! Since all procs read global data only need to do this check on one proc... 745 745 IF( nbrdta(ib,igrd,ib_bdy) < nbrdta(ibm1,igrd,ib_bdy) ) THEN 746 CALL ctl_stop('bdy_init : ERROR : boundary data in file must be defined in order of distance from edge nbr.', & 747 'A utility for re-ordering boundary coordinates and data files exists in the TOOLS/OBC directory') 746 CALL ctl_stop('bdy_init : ERROR : boundary data in file & 747 must be defined in order of distance from edge nbr.', & 748 'A utility for re-ordering boundary coordinates and data & 749 files exists in the TOOLS/OBC directory') 748 750 ENDIF 749 751 ENDIF … … 881 883 ENDIF 882 884 IF(nbondj .eq. 0) THEN 883 IF(com_north_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(4)-1 .OR. nbidta(ib,igrd,ib_bdy) == ie_b(4)+1) .AND. & 885 IF(com_north_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(4)-1 & 886 & .OR. nbidta(ib,igrd,ib_bdy) == ie_b(4)+1) .AND. & 884 887 & nbjdta(ib,igrd,ib_bdy) == is_b(4) .AND. nbrdta(ib,igrd,ib_bdy) == ir) THEN 885 888 com_north_b = 1 886 889 ENDIF 887 IF(com_south_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(3)-1 .OR. nbidta(ib,igrd,ib_bdy) == ie_b(3)+1) .AND. & 890 IF(com_south_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(3)-1 & 891 &.OR. nbidta(ib,igrd,ib_bdy) == ie_b(3)+1) .AND. & 888 892 & nbjdta(ib,igrd,ib_bdy) == in_b(3) .AND. nbrdta(ib,igrd,ib_bdy) == ir) THEN 889 893 com_south_b = 1 … … 906 910 ENDIF 907 911 ELSEIF(nbondj .eq. 1) THEN 908 IF(com_south_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(3)-1 .OR. nbidta(ib,igrd,ib_bdy) == ie_b(3)+1) .AND. & 912 IF( com_south_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(3)-1 .OR. & 913 & nbidta(ib,igrd,ib_bdy) == ie_b(3)+1) .AND. & 909 914 & nbjdta(ib,igrd,ib_bdy) == in_b(3) .AND. nbrdta(ib,igrd,ib_bdy) == ir) THEN 910 915 com_south_b = 1 … … 919 924 ENDIF 920 925 ELSEIF(nbondj .eq. -1) THEN 921 IF(com_north_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(4)-1 .OR. nbidta(ib,igrd,ib_bdy) == ie_b(4)+1) .AND. & 926 IF(com_north_b .ne. 1 .AND. (nbidta(ib,igrd,ib_bdy) == iw_b(4)-1 & 927 & .OR. nbidta(ib,igrd,ib_bdy) == ie_b(4)+1) .AND. & 922 928 & nbjdta(ib,igrd,ib_bdy) == is_b(4) .AND. nbrdta(ib,igrd,ib_bdy) == ir) THEN 923 929 com_north_b = 1
Note: See TracChangeset
for help on using the changeset viewer.