Changeset 12555 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2020-03-13T17:33:02+01:00 (4 years ago)

Author:

charris

Message:

Changes from GO6 package branch (GMED ticket 450):

svn merge -r 11035:11101 ​svn+ssh://charris@forge.ipsl.jussieu.fr/ipsl/forge/projets/nemo/svn/branches/UKMO/dev_r5518_GO6_package

File:

• branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90 (modified) (11 diffs)

branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

@@ -79 +79 @@
          WRITE(numout,*) 'dom_init : domain initialization'
          WRITE(numout,*) '~~~~~~~~'
+         IF(lflush) CALL flush(numout)
       ENDIF
       !
@@ -160 +161 @@
       READ  ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 )
 902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp )
-      IF(lwm) WRITE ( numond, namrun )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namrun )
       !
       IF(lwp) THEN                  ! control print
@@ -195 +196 @@
          WRITE(numout,*) '      overwrite an existing file      ln_clobber = ', ln_clobber
          WRITE(numout,*) '      NetCDF chunksize (bytes)        nn_chunksz = ', nn_chunksz
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -253 +255 @@
       READ  ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 )
 904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp )
-      IF(lwm) WRITE ( numond, namdom )
+      IF(lwm .AND. nprint > 2) WRITE ( numond, namdom )
 
       IF(lwp) THEN
@@ -295 +297 @@
          WRITE(numout,*) '                                      ppkth2            = ', ppkth2
          WRITE(numout,*) '                                      ppacr2            = ', ppacr2
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -315 +318 @@
       READ  ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 )
 906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp )
-      IF(lwm) WRITE( numond, namcla )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namcla )
 
       IF(lwp) THEN
@@ -321 +324 @@
          WRITE(numout,*) '   Namelist namcla'
          WRITE(numout,*) '      cross land advection                 nn_cla    = ', nn_cla
+         IF(lflush) CALL flush(numout)
       ENDIF
       IF ( nn_cla .EQ. 1 ) THEN
@@ -339 +343 @@
       READ  ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 )
 908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp )
-      IF(lwm) WRITE( numond, namnc4 )
+      IF(lwm .AND. nprint > 2) WRITE( numond, namnc4 )
 
       IF(lwp) THEN                        ! control print
@@ -348 +352 @@
          WRITE(numout,*) '      number of chunks in k-dimension      nn_nchunks_k   = ', nn_nchunks_k
          WRITE(numout,*) '      apply netcdf4/hdf5 chunking & compression ln_nc4zip = ', ln_nc4zip
+         IF(lflush) CALL flush(numout)
       ENDIF
 
@@ -408 +413 @@
          WRITE(numout,"(14x,'e2t maxi: ',1f10.2,' at i = ',i5,' j= ',i5)") ze2max, iima2, ijma2
          WRITE(numout,"(14x,'e2t mini: ',1f10.2,' at i = ',i5,' j= ',i5)") ze2min, iimi2, ijmi2
+         IF(lflush) CALL flush(numout)
       ENDIF
       !
@@ -469 +475 @@
          WRITE(numout,*) 'dom_stiff : maximum grid stiffness ratio: ', zrxmax
          WRITE(numout,*) '~~~~~~~~~'
+         IF(lflush) CALL flush(numout)
       ENDIF