Changeset 904

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

Location:

trunk/NEMO

Files:

• LIM_SRC_3/ice.F90 (modified) (1 diff)
• LIM_SRC_3/limdyn.F90 (modified) (2 diffs)
• OPA_SRC/SBC/sbcice_lim.F90 (modified) (1 diff)

trunk/NEMO/LIM_SRC_3/ice.F90

@@ -332 +332 @@
       albege ,   &  !: Albedo of the snow or ice (only for outputs)
       albecn ,   &  !: Albedo of the ocean (only for outputs)
-      tauc   ,   &  !: Cloud optical depth
-      sdvt          !: u*^2/(Stress/density)
+      tauc          !: Cloud optical depth
 
 ! temporary arrays for dummy version of the code

trunk/NEMO/LIM_SRC_3/limdyn.F90

@@ -180 +180 @@
                   &  +  ( 1.0 - at_i(ji,jj) ) * SQRT( ztair2 )
 
-               ust2s(ji,jj) = ( zustm / rau0 ) * ( rone + sdvt(ji,jj) ) * tms(ji,jj)
+               ust2s(ji,jj) = ( zustm / rau0 ) * tms(ji,jj)
 
             END DO
@@ -194 +194 @@
                 zustm        = SQRT( ztair2  )
 
-                ust2s(ji,jj) = ( zustm / rau0 ) * ( rone + sdvt(ji,jj) ) * tms(ji,jj)
+                ust2s(ji,jj) = ( zustm / rau0 ) * tms(ji,jj)
             END DO
          END DO

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)