Changeset 2388


Ignore:
Timestamp:
2010-11-15T16:24:52+01:00 (10 years ago)
Author:
smasson
Message:

ticket #757, LIM-2 - bulk CLIO bug in surface ice stress

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r1732 r2388  
    509509         END DO 
    510510      CASE( 'B' )                          ! B-grid ice dynamics 
     511         ! Change from wind speed to wind stress over OCEAN (cao is used) 
     512         zcoef = 0.5 * cai / cao  
    511513         ! stress from ocean U- and V-points to ice U,V point 
    512514!CDIR COLLAPSE 
    513515         DO jj = 2, jpj 
    514516            DO ji = 2, jpi   ! B grid : no vector opt. 
    515                p_taui(ji,jj) = 0.5 * ( utau(ji-1,jj  ) + utau(ji-1,jj-1) ) 
    516                p_tauj(ji,jj) = 0.5 * ( vtau(ji  ,jj-1) + vtau(ji-1,jj-1) ) 
     517               p_taui(ji,jj) = zcoef * ( utau(ji-1,jj  ) + utau(ji-1,jj-1) ) 
     518               p_tauj(ji,jj) = zcoef * ( vtau(ji  ,jj-1) + vtau(ji-1,jj-1) ) 
    517519            END DO 
    518520         END DO 
Note: See TracChangeset for help on using the changeset viewer.