Changeset 3565 for trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90

Timestamp:

2012-11-15T19:05:12+01:00 (12 years ago)

Author:

rblod

Message:

Fix allocation of msk in obcdta, see ticket #957

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/OBC/obcdta.F90

@@ -121 +121 @@
       ALLOCATE( ltemsk(jpj,jpk) , luemsk(jpj,jpk) , lvemsk(jpj,jpk) ,     &
          &      ltwmsk(jpj,jpk) , luwmsk(jpj,jpk) , lvwmsk(jpj,jpk) ,     &
-         &      ltnmsk(jpj,jpk) , lunmsk(jpj,jpk) , lvnmsk(jpj,jpk) ,     &
-         &      ltsmsk(jpj,jpk) , lusmsk(jpj,jpk) , lvsmsk(jpj,jpk) , STAT=ierr(2) )
+         &      ltnmsk(jpi,jpk) , lunmsk(jpi,jpk) , lvnmsk(jpi,jpk) ,     &
+         &      ltsmsk(jpi,jpk) , lusmsk(jpi,jpk) , lvsmsk(jpi,jpk) , STAT=ierr(2) )
 
       obc_dta_alloc = MAXVAL( ierr )