- Timestamp:
- 2011-03-28T16:29:54+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdmld.F90
r2690 r2710 94 94 !!---------------------------------------------------------------------- 95 95 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 96 USE wrk_nemo, ONLY: zvlmsk => wrk_2d_1 ! 2D workspace96 USE wrk_nemo, ONLY: zvlmsk => wrk_2d_10 ! 2D workspace 97 97 ! 98 98 INTEGER , INTENT( in ) :: ktrd ! ocean trend index … … 104 104 !!---------------------------------------------------------------------- 105 105 106 IF( wrk_in_use(2, 1 ) ) THEN106 IF( wrk_in_use(2, 10) ) THEN 107 107 CALL ctl_stop('trd_mld_zint : requested workspace arrays unavailable') ; RETURN 108 108 ENDIF … … 195 195 END SELECT 196 196 ! 197 IF( wrk_not_released(2, 1 ) ) CALL ctl_stop('trd_mld_zint: failed to release workspace arrays')197 IF( wrk_not_released(2, 10) ) CALL ctl_stop('trd_mld_zint: failed to release workspace arrays') 198 198 ! 199 199 END SUBROUTINE trd_mld_zint
Note: See TracChangeset
for help on using the changeset viewer.