Changeset 2777 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90

Timestamp:

2011-06-07T11:55:02+02:00 (13 years ago)

Author:

smasson

Message:

LIM3 compiling and (partly?) running in v3_3_1, see ticket#817

File:

• trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90

@@ -699 +699 @@
       END DO !ji
       !
-      IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) )   &
+      IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22) )   &
           CALL ctl_stop('lim_thd_dh : failed to release workspace arrays')
       !