Changeset 5892


Ignore:
Timestamp:
2015-11-17T17:41:54+01:00 (5 years ago)
Author:
acc
Message:

Branch 2015/dev_r5836_NOC3_vvl_by_default. Remove references to deleted routines that break compilation of OFF_SRC/domrea.F90 during SETTE testing.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OFF_SRC/domrea.F90

    r5845 r5892  
    679679      ENDIF 
    680680 
    681  
    682       IF( nprint == 1 .AND. lwp ) THEN 
    683          WRITE(numout,*) '          e1u e2u ' 
    684          CALL prihre( e1u,jpi,jpj,jpi-5,jpi,1,jpj-5,jpj,1,0.,numout ) 
    685          CALL prihre( e2u,jpi,jpj,jpi-5,jpi,1,jpj-5,jpj,1,0.,numout ) 
    686          WRITE(numout,*) '          e1v e2v  ' 
    687          CALL prihre( e1v,jpi,jpj,jpi-5,jpi,1,jpj-5,jpj,1,0.,numout ) 
    688          CALL prihre( e2v,jpi,jpj,jpi-5,jpi,1,jpj-5,jpj,1,0.,numout ) 
    689       ENDIF 
    690  
    691681      IF(lwp) THEN 
    692682         WRITE(numout,*) 
     
    836826      END DO 
    837827      ! 
    838       IF( nprint == 1 .AND. lwp ) THEN    ! Control print 
    839          imsk(:,:) = INT( tmask_i(:,:) ) 
    840          WRITE(numout,*) ' tmask_i : ' 
    841          CALL prihin( imsk(:,:), jpi, jpj, 1, jpi, 1, 1, jpj, 1, 1, numout) 
    842          WRITE (numout,*) 
    843          WRITE (numout,*) ' dommsk: tmask for each level' 
    844          WRITE (numout,*) ' ----------------------------' 
    845          DO jk = 1, jpk 
    846             imsk(:,:) = INT( tmask(:,:,jk) ) 
    847             WRITE(numout,*) 
    848             WRITE(numout,*) ' level = ',jk 
    849             CALL prihin( imsk(:,:), jpi, jpj, 1, jpi, 1, 1, jpj, 1, 1, numout) 
    850          END DO 
    851       ENDIF 
    852       ! 
    853828      CALL wrk_dealloc( jpi, jpj, imsk ) 
    854829      ! 
Note: See TracChangeset for help on using the changeset viewer.