Changeset 15303

Timestamp:

2021-09-30T14:54:55+02:00 (3 years ago)

Author:

mattmartin

Message:

Fixed bug in namelist reading part of stopack related to changes in other parts of NEMO.

File:

• branches/UKMO/dev_r5518_GO6_stophys/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90 (modified) (6 diffs)

branches/UKMO/dev_r5518_GO6_stophys/NEMOGCM/NEMO/OPA_SRC/STO/stopack.F90

@@ -1511 +1511 @@
       READ  ( numnam_cfg, namstopack, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namstopack in configuration namelist', lwp )
-      IF(lwm) WRITE ( numond, namstopack )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namstopack )     
 #endif
 
@@ -1658 +1658 @@
 
          WRITE(numout,*)
+         IF(lflush) CALL flush(numout)
       ENDIF
 
       IF( .NOT. ln_stopack ) THEN
          IF(lwp) WRITE(numout,*) '     STOPACK is switched off'
+         IF(lflush) CALL flush(numout)
          RETURN
       ENDIF
@@ -1763 +1765 @@
          WRITE(numout,*) '    SPP with own scales : ',ln_spp_own_gauss
          WRITE(numout,*) '    SKEB with own scales: ',ln_skeb_own_gauss
+         IF(lflush) CALL flush(numout)         
       ENDIF
 
@@ -1813 +1816 @@
          WRITE(numout,*) '        Mean AR1 b term : ',SUM(sppt_b)/REAL(jpi*jpj)
          WRITE(numout,*)
+         IF(lflush) CALL flush(numout)         
       ENDIF
 
@@ -1846 +1850 @@
           WRITE(numout,*) '        Mean AR1 b term : ',SUM(spp_b)/REAL(jpi*jpj)
           WRITE(numout,*)
+          IF(lflush) CALL flush(numout)          
         ENDIF
       ENDIF
@@ -1870 +1875 @@
           WRITE(numout,*) '        Mean AR1 b term : ',SUM(skeb_b)/REAL(jpi*jpj)
           WRITE(numout,*)
+          IF(lflush) CALL flush(numout)          
         ENDIF
       ENDIF