Changeset 10224


Ignore:
Timestamp:
2018-10-25T12:08:11+02:00 (2 years ago)
Author:
aumont
Message:

removed a debug line

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/TRA/trazdf.F90

    r10213 r10224  
    184184                     zws(ji,jj,jk) = - p2dt * zwt(ji,jj,jk+1) / e3w_n(ji,jj,jk+1) 
    185185                     zwd(ji,jj,jk) = e3t_a(ji,jj,jk) - zwi(ji,jj,jk) - zws(ji,jj,jk) 
    186                      IF (mig(ji) == 72 .and. mjg(jj) == 74 ) THEN 
    187                        write(0,*) 'plante zdf2 ',jk,avt(ji,jj,jk),avs(ji,jj,jk) 
    188                      ENDIF 
    189186                 END DO 
    190187               END DO 
Note: See TracChangeset for help on using the changeset viewer.