Changeset 904 for trunk/NEMO/OPA_SRC

Timestamp:

2008-04-24T16:30:01+02:00 (16 years ago)

Author:

ctlod

Message:

remove the sdvt(:,:) variable which is not initialized at all but is used in the computation of the friction velocity ust2s(:,:), see ticket: #121

File:

• trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -629 +629 @@
          WRITE(numout,*) ' vt_i          : ', vt_i(ki,kj)       
          WRITE(numout,*) ' vt_s          : ', vt_s(ki,kj)       
-         WRITE(numout,*) ' sdvt          : ', sdvt(ki,kj)       
          WRITE(numout,*) ' u_ice(i-1,j)  : ', u_ice(ki-1,kj)
          WRITE(numout,*) ' u_ice(i  ,j)  : ', u_ice(ki,kj)