Changeset 3914

Timestamp:

2013-06-12T22:17:48+02:00 (11 years ago)

Author:

smasson

Message:

trunk:bugfix in array allocation in sbccpl, see ticket #1110

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -388 +388 @@
       !
       IF( TRIM( sn_rcv_tau%cldes ) /= 'oce and ice' ) THEN        ! 'oce and ice' case ocean stress on ocean mesh used
-         srcv(jpr_itx1:jpr_itz2)%laction = .FALSE.    ! ice components not received
+         srcv(jpr_itz1:jpr_itz2)%laction = .FALSE.    ! ice components not received (itx1 and ity1 used later)
          srcv(jpr_itx1)%clgrid = 'U'                  ! ocean stress used after its transformation
          srcv(jpr_ity1)%clgrid = 'V'                  ! i.e. it is always at U- & V-points for i- & j-comp. resp.
@@ -911 +911 @@
       !!                 third  as  2 components on the cp_ice_msh point 
       !!
-      !!                In 'oce and ice' case, only one vector stress field 
+      !!                Except in 'oce and ice' case, only one vector stress field 
       !!             is received. It has already been processed in sbc_cpl_rcv
       !!             so that it is now defined as (i,j) components given at U-
-      !!             and V-points, respectively. Therefore, here only the third
+      !!             and V-points, respectively. Therefore, only the third
       !!             transformation is done and only if the ice-grid is a 'I'-grid. 
       !!