- Timestamp:
- 2011-03-16T09:03:19+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90
r2690 r2696 93 93 USE oce , ONLY: zftu => ua , zftv => va ! (ua,va) used as workspace 94 94 USE wrk_nemo, ONLY: zdkt => wrk_2d_1 , zdk1t => wrk_2d_2 , z2d => wrk_2d_3 ! 2D workspace 95 USE wrk_nemo, ONLY: zdit => wrk_3d_ 1 , zdjt => wrk_3d_2 , ztfw => wrk_3d_3! 3D workspace95 USE wrk_nemo, ONLY: zdit => wrk_3d_6 , zdjt => wrk_3d_7 , ztfw => wrk_3d_8 ! 3D workspace 96 96 ! 97 97 INTEGER , INTENT(in ) :: kt ! ocean time-step index … … 112 112 !!---------------------------------------------------------------------- 113 113 114 IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use(2, 1,2,3) ) THEN114 IF( wrk_in_use(3, 6,7,8) .OR. wrk_in_use(2, 1,2,3) ) THEN 115 115 CALL ctl_stop('tra_ldf_iso : requested workspace array unavailable') ; RETURN 116 116 ENDIF … … 291 291 END DO 292 292 ! 293 IF( wrk_not_released(3, 1,2,3) .OR. &293 IF( wrk_not_released(3, 6,7,8) .OR. & 294 294 wrk_not_released(2, 1,2,3) ) CALL ctl_stop('tra_ldf_iso: failed to release workspace arrays') 295 295 !
Note: See TracChangeset
for help on using the changeset viewer.