Changeset 11352 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdyini.F90

Timestamp:

2019-07-25T16:42:54+02:00 (5 years ago)

Author:

smasson

Message:

dev_r10984_HPC-13 : small bugfixes

File:

• NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdyini.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdyini.F90

@@ -386 +386 @@
 
             CALL bdy_read_seg( ib_bdy, nblendta(:,ib_bdy) )
-            ! Now look for crossings in user (namelist) defined open boundary segments:
-            IF( nbdysege > 0 .OR. nbdysegw > 0 .OR. nbdysegn > 0 .OR. nbdysegs > 0)   CALL bdy_ctl_seg
 
          ELSE                                        ! Read size of arrays in boundary coordinates file.
@@ -400 +398 @@
          !
       END DO ! ib_bdy
+
+      ! Now look for crossings in user (namelist) defined open boundary segments:
+      IF( nbdysege > 0 .OR. nbdysegw > 0 .OR. nbdysegn > 0 .OR. nbdysegs > 0)   CALL bdy_ctl_seg
       
       ! Allocate arrays