Changeset 10754 for branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

Timestamp:

2019-03-14T17:12:01+01:00 (5 years ago)

Author:

andmirek

Message:

GMED 450 replace nprint == 1 with nprint > 3

File:

• branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90 (modified) (5 diffs)

branches/UKMO/dev_r5518_GO6_package_text_diagnostics/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -514 +514 @@
       ! CAUTION : The fmask may be further modified in dyn_vor_init ( dynvor.F90 )
             
-      IF( nprint == 1 .AND. lwp ) THEN      ! Control print
+      IF( nprint > 3 .AND. lwp ) THEN      ! Control print
          imsk(:,:) = INT( tmask_i(:,:) )
          WRITE(numout,*) ' tmask_i : '
@@ -640 +640 @@
                   nicoa(inw,1,jk) = ji
                   njcoa(inw,1,jk) = jj
-                  IF( nprint == 1 ) WRITE(numout,*) ' west  : ', jk, inw, ji, jj
+                  IF( nprint > 3 ) WRITE(numout,*) ' west  : ', jk, inw, ji, jj
                ENDIF
                zaa = tmask(ji,jj,jk) + tmask(ji,jj+1,jk)
@@ -647 +647 @@
                   nicoa(ine,2,jk) = ji
                   njcoa(ine,2,jk) = jj
-                  IF( nprint == 1 ) WRITE(numout,*) ' east  : ', jk, ine, ji, jj
+                  IF( nprint > 3 ) WRITE(numout,*) ' east  : ', jk, ine, ji, jj
                ENDIF
             END DO
@@ -667 +667 @@
                   nicoa(ins,3,jk) = ji
                   njcoa(ins,3,jk) = jj
-                  IF( nprint == 1 ) WRITE(numout,*) ' south : ', jk, ins, ji, jj
+                  IF( nprint > 3 ) WRITE(numout,*) ' south : ', jk, ins, ji, jj
                ENDIF
                zaa = tmask(ji+1,jj,jk) + tmask(ji,jj,jk)
@@ -674 +674 @@
                   nicoa(inn,4,jk) = ji
                   njcoa(inn,4,jk) = jj
-                  IF( nprint == 1 ) WRITE(numout,*) ' north : ', jk, inn, ji, jj
+                  IF( nprint > 3 ) WRITE(numout,*) ' north : ', jk, inn, ji, jj
                ENDIF
             END DO