- Timestamp:
- 2011-03-28T16:29:54+02:00 (13 years ago)
- Location:
- branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD
- Files:
-
- 2 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 -
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRD/trdtra.F90
r2690 r2710 62 62 !!---------------------------------------------------------------------- 63 63 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 64 USE wrk_nemo, ONLY: ztrds => wrk_3d_1 ! 3D workspace64 USE wrk_nemo, ONLY: ztrds => wrk_3d_10 ! 3D workspace 65 65 ! 66 66 INTEGER , INTENT(in) :: kt ! time step … … 73 73 !!---------------------------------------------------------------------- 74 74 75 IF( wrk_in_use(3, 1 ) ) THEN75 IF( wrk_in_use(3, 10) ) THEN 76 76 CALL ctl_stop('trd_tra: requested workspace array unavailable') ; RETURN 77 77 ENDIF … … 138 138 ENDIF 139 139 ! 140 IF( wrk_not_released(3, 1 ) ) CALL ctl_stop('trd_tra: failed to release workspace array')140 IF( wrk_not_released(3, 10) ) CALL ctl_stop('trd_tra: failed to release workspace array') 141 141 ! 142 142 END SUBROUTINE trd_tra
Note: See TracChangeset
for help on using the changeset viewer.