Changeset 4531 for branches

Timestamp:

2014-03-17T11:04:00+01:00 (10 years ago)

Author:

pabouttier

Message:

Fix OOB error in sol_oce_tam.F90 for solsor_tam, see Ticket #1255

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/SOL/sol_oce_tam.F90 (modified) (1 diff)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPATAM_SRC/SOL/sol_oce_tam.F90

@@ -61 +61 @@
       !
       IF ( .NOT. ALLOCATED(nitsor) ) THEN
-      ALLOCATE( nitsor(nitend - nit000 - 1) , STAT=ierr(1) )
+      ALLOCATE( nitsor(nitend - nit000 + 1) , STAT=ierr(1) )
       nitsor(:) = nn_nmin
       END IF