Changeset 3432 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

Timestamp:

2012-07-11T13:22:58+02:00 (12 years ago)

Author:

trackstand2

Message:

Merge branch 'ksection_partition'

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90 (modified) (2 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/SBC/fldread.F90

@@ -826 +826 @@
       !
       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
       !
@@ -940 +940 @@
 
       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