Changeset 4475 for branches/2011

Timestamp:

2014-02-04T13:18:50+01:00 (10 years ago)

Author:

trackstand2

Message:

Commented out dump of bathy in domzgr

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90 (modified) (3 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

@@ -789 +789 @@
       IF(lwp) WRITE(numout,*) '    ~~~~~~~~~~~~~'
       !
-      CALL dump_array(0, 'mbathy', mbathy, withHalos=.TRUE.)
+      !CALL dump_array(0, 'mbathy', mbathy, withHalos=.TRUE.)
 
       mbkt(:,:) = MAX( mbathy(:,:) , 1 )    ! bottom k-index of T-level (=1 over land)
@@ -830 +830 @@
          END DO
 
-         CALL dump_array(0, 'mbkmax', mbkmax)
+         !CALL dump_array(0, 'mbkmax', mbkmax)
 
          ! mbkmax computed in mpp_init3 because needed before ANY halo 
@@ -1484 +1484 @@
       ENDIF
 
-      CALL dump_array(0, 'hbatt', hbatt, withHalos=.FALSE.)
+      !CALL dump_array(0, 'hbatt', hbatt, withHalos=.FALSE.)
 
       !                                        ! ==============================