Ignore:
Timestamp:
2012-11-28T11:02:28+01:00 (8 years ago)
Author:
cbricaud
Message:

split lines which are too long in some bdy routines

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r3680 r3703  
    744744               IF(lwp) THEN         ! Since all procs read global data only need to do this check on one proc... 
    745745                  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') 
    748750                  ENDIF     
    749751               ENDIF 
     
    881883                  ENDIF 
    882884                  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. & 
    884887                       & nbjdta(ib,igrd,ib_bdy) == is_b(4) .AND. nbrdta(ib,igrd,ib_bdy) == ir) THEN 
    885888                       com_north_b = 1  
    886889                     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. & 
    888892                       & nbjdta(ib,igrd,ib_bdy) == in_b(3) .AND. nbrdta(ib,igrd,ib_bdy) == ir) THEN 
    889893                       com_south_b = 1  
     
    906910                     ENDIF 
    907911                  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. & 
    909914                       & nbjdta(ib,igrd,ib_bdy) == in_b(3) .AND. nbrdta(ib,igrd,ib_bdy) == ir) THEN 
    910915                       com_south_b = 1  
     
    919924                     ENDIF 
    920925                  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. & 
    922928                       & nbjdta(ib,igrd,ib_bdy) == is_b(4) .AND. nbrdta(ib,igrd,ib_bdy) == ir) THEN 
    923929                       com_north_b = 1  
Note: See TracChangeset for help on using the changeset viewer.