Changeset 904


Ignore:
Timestamp:
2008-04-24T16:30:01+02:00 (13 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:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/LIM_SRC_3/ice.F90

    r894 r904  
    332332      albege ,   &  !: Albedo of the snow or ice (only for outputs) 
    333333      albecn ,   &  !: Albedo of the ocean (only for outputs) 
    334       tauc   ,   &  !: Cloud optical depth 
    335       sdvt          !: u*^2/(Stress/density) 
     334      tauc          !: Cloud optical depth 
    336335 
    337336! temporary arrays for dummy version of the code 
  • trunk/NEMO/LIM_SRC_3/limdyn.F90

    r888 r904  
    180180                  &  +  ( 1.0 - at_i(ji,jj) ) * SQRT( ztair2 ) 
    181181 
    182                ust2s(ji,jj) = ( zustm / rau0 ) * ( rone + sdvt(ji,jj) ) * tms(ji,jj) 
     182               ust2s(ji,jj) = ( zustm / rau0 ) * tms(ji,jj) 
    183183 
    184184            END DO 
     
    194194                zustm        = SQRT( ztair2  ) 
    195195 
    196                 ust2s(ji,jj) = ( zustm / rau0 ) * ( rone + sdvt(ji,jj) ) * tms(ji,jj) 
     196                ust2s(ji,jj) = ( zustm / rau0 ) * tms(ji,jj) 
    197197            END DO 
    198198         END DO 
  • trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r900 r904  
    629629         WRITE(numout,*) ' vt_i          : ', vt_i(ki,kj)        
    630630         WRITE(numout,*) ' vt_s          : ', vt_s(ki,kj)        
    631          WRITE(numout,*) ' sdvt          : ', sdvt(ki,kj)        
    632631         WRITE(numout,*) ' u_ice(i-1,j)  : ', u_ice(ki-1,kj) 
    633632         WRITE(numout,*) ' u_ice(i  ,j)  : ', u_ice(ki,kj) 
Note: See TracChangeset for help on using the changeset viewer.