Changeset 6076

Timestamp:

2015-12-17T10:12:15+01:00 (8 years ago)

Author:

timgraham

Message:

Removed a print statements that referenced an old subroutine (prihin)

File:

• branches/2015/dev_merge_2015/NEMOGCM/NEMO/OFF_SRC/dommsk.F90 (modified) (2 diffs)

branches/2015/dev_merge_2015/NEMOGCM/NEMO/OFF_SRC/dommsk.F90

@@ -51 +51 @@
       INTEGER  ::   ji, jj, jk                   ! dummy loop indices
       INTEGER  ::   iif, iil, ijf, ijl       ! local integers
-      INTEGER, POINTER, DIMENSION(:,:) ::  imsk 
       !
       !!---------------------------------------------------------------------
       
-      CALL wrk_alloc( jpi, jpj, imsk )
       !
       ! Interior domain mask (used for global sum)
@@ -111 +109 @@
       END DO
       !
-      IF( nprint == 1 .AND. lwp ) THEN    ! Control print
-         imsk(:,:) = INT( tmask_i(:,:) )
-         WRITE(numout,*) ' tmask_i : '
-         CALL prihin( imsk(:,:), jpi, jpj, 1, jpi, 1, 1, jpj, 1, 1, numout)
-         WRITE (numout,*)
-         WRITE (numout,*) ' dommsk: tmask for each level'
-         WRITE (numout,*) ' ----------------------------'
-         DO jk = 1, jpk
-            imsk(:,:) = INT( tmask(:,:,jk) )
-            WRITE(numout,*)
-            WRITE(numout,*) ' level = ',jk
-            CALL prihin( imsk(:,:), jpi, jpj, 1, jpi, 1, 1, jpj, 1, 1, numout)
-         END DO
-      ENDIF
       !
-      CALL wrk_dealloc( jpi, jpj, imsk )
       !
    END SUBROUTINE dom_msk