Changeset 10570 for NEMO/trunk/src/OCE/LBC

Timestamp:

2019-01-24T16:14:49+01:00 (5 years ago)

Author:

acc

Message:

Trunk update to implement finer control over the choice of text report files generated. See ticket: #2167

File:

• NEMO/trunk/src/OCE/LBC/mppini.F90 (modified) (6 diffs)

NEMO/trunk/src/OCE/LBC/mppini.F90

@@ -151 +151 @@
       INTEGER ::   inbi, inbj, iimax,  ijmax, icnt1, icnt2
       LOGICAL ::   llbest
+      LOGICAL ::   llwrtlay
       INTEGER, ALLOCATABLE, DIMENSION(:)     ::   iin, ii_nono, ii_noea          ! 1D workspace
       INTEGER, ALLOCATABLE, DIMENSION(:)     ::   ijn, ii_noso, ii_nowe          !  -     -
@@ -167 +168 @@
       !!----------------------------------------------------------------------
 
+      llwrtlay = lwp .OR. ln_ctl .OR. sn_cfctl%l_layout
       ! do we need to take into account bdy_msk?
       REWIND( numnam_ref )              ! Namelist nambdy in reference namelist : BDY
@@ -554 +556 @@
 
       ! Save processor layout in ascii file
-      IF (lwp) THEN
+      IF (llwrtlay) THEN
          CALL ctl_opn( inum, 'layout.dat', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea )
          WRITE(inum,'(a)') '   jpnij   jpimax  jpjmax    jpk  jpiglo  jpjglo'//&
@@ -615 +617 @@
             WRITE(numout,*) '   ==>>>   North fold boundary prepared for jpni >1'
             ! additional prints in layout.dat
+         ENDIF
+         IF (llwrtlay) THEN
             WRITE(inum,*)
             WRITE(inum,*)
@@ -629 +633 @@
       IF( ln_nnogather ) THEN
          CALL mpp_init_nfdcom     ! northfold neighbour lists
-         IF (lwp) THEN
+         IF (llwrtlay) THEN
             WRITE(inum,*)
             WRITE(inum,*)
@@ -640 +644 @@
       ENDIF
       !
-      IF (lwp) CLOSE(inum)   
+      IF (llwrtlay) CLOSE(inum)   
       !
       DEALLOCATE(iin, ijn, ii_nono, ii_noea, ii_noso, ii_nowe,    &