Context Navigation

#2132 closed Bug (fixed)

Typo in sbccpl receving wind stress over sea ice

Reported by:reporter: The author of the ticket.	jharlass	Owned by:owner: Person in charge for handling	vancop
Priority: priority: Triage level for tickets.	low	Milestone:	2019 WP
Component:	SBC	Version:	release-4.0
Severity:	minor	Keywords: keywords: Acronyms or words tags.	coupling, ice, wind
Cc:		Branch review:
MP ready?:		Task progress:

Description (last modified by clevy)

Context

Typo in line 1271 of sbccpl.F90 (in 3.6 release) when wind stress over ice is transformed from T-grid on ice velocity point.
To be checked and fixed for 4.0 and 3.6 if relevant

Analysis

One out of 4 components erroneously uses stress over open water.

Fix

Index: sbccpl.F90
===================================================================

sbccpl.F90

                      p_taui(ji,jj) = 0.25 * ( frcv(jpr_itx1)%z3(ji,jj  ,1) + frcv(jpr_itx1)%z3(ji-1,jj  ,1)   &
                         &                   + frcv(jpr_itx1)%z3(ji,jj-1,1) + frcv(jpr_itx1)%z3(ji-1,jj-1,1) )
                      p_tauj(ji,jj) = 0.25 * ( frcv(jpr_ity1)%z3(ji,jj  ,1) + frcv(jpr_ity1)%z3(ji-1,jj  ,1)   &
                         &                   + frcv(jpr_oty1)%z3(ji,jj-1,1) + frcv(jpr_ity1)%z3(ji-1,jj-1,1) )
+                        &                   + frcv(jpr_ity1)%z3(ji,jj-1,1) + frcv(jpr_ity1)%z3(ji-1,jj-1,1) )
                   END DO
                END DO
             CASE( 'I' )