Changeset 6076
- Timestamp:
- 2015-12-17T10:12:15+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/OFF_SRC/dommsk.F90
r6069 r6076 51 51 INTEGER :: ji, jj, jk ! dummy loop indices 52 52 INTEGER :: iif, iil, ijf, ijl ! local integers 53 INTEGER, POINTER, DIMENSION(:,:) :: imsk54 53 ! 55 54 !!--------------------------------------------------------------------- 56 55 57 CALL wrk_alloc( jpi, jpj, imsk )58 56 ! 59 57 ! Interior domain mask (used for global sum) … … 111 109 END DO 112 110 ! 113 IF( nprint == 1 .AND. lwp ) THEN ! Control print114 imsk(:,:) = INT( tmask_i(:,:) )115 WRITE(numout,*) ' tmask_i : '116 CALL prihin( imsk(:,:), jpi, jpj, 1, jpi, 1, 1, jpj, 1, 1, numout)117 WRITE (numout,*)118 WRITE (numout,*) ' dommsk: tmask for each level'119 WRITE (numout,*) ' ----------------------------'120 DO jk = 1, jpk121 imsk(:,:) = INT( tmask(:,:,jk) )122 WRITE(numout,*)123 WRITE(numout,*) ' level = ',jk124 CALL prihin( imsk(:,:), jpi, jpj, 1, jpi, 1, 1, jpj, 1, 1, numout)125 END DO126 ENDIF127 111 ! 128 CALL wrk_dealloc( jpi, jpj, imsk )129 112 ! 130 113 END SUBROUTINE dom_msk
Note: See TracChangeset
for help on using the changeset viewer.