Changeset 2777 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/istate.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/OPA_SRC/DOM/istate.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

@@ -459 +459 @@
 
       IF(wrk_in_use(3, 1) ) THEN
-         CALL ctl_stop('istage_uvg: requested workspace array unavailable')   ;   RETURN
+         CALL ctl_stop('istate_uvg: requested workspace array unavailable')   ;   RETURN
       ENDIF
 
@@ -558 +558 @@
       !
       IF( wrk_not_released(3, 1) ) THEN
-         CALL ctl_stop('istage_uvg: failed to release workspace array')
+         CALL ctl_stop('istate_uvg: failed to release workspace array')
       ENDIF
       !