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

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

@@ -822 +822 @@
       !
       IF(  wrk_in_use(2, 1)  .OR.  iwrk_in_use(2,1) ) THEN
-         CALL ctl_stop('fld_weights: requested workspace arrays are unavailable')   ;   RETURN
+         CALL ctl_stop('fld_weight: requested workspace arrays are unavailable')   ;   RETURN
       ENDIF
       !
       IF( nxt_wgt > tot_wgts ) THEN
-        CALL ctl_stop("fld_weights: weights array size exceeded, increase tot_wgts")
+        CALL ctl_stop("fld_weight: weights array size exceeded, increase tot_wgts")
       ENDIF
       !
@@ -936 +936 @@
 
       IF(  wrk_not_released(2, 1) .OR.    &
-          iwrk_not_released(2, 1)  )   CALL ctl_stop('fld_weights: failed to release workspace arrays')
+          iwrk_not_released(2, 1)  )   CALL ctl_stop('fld_weight: failed to release workspace arrays')
       !
    END SUBROUTINE fld_weight