- Timestamp:
- 2011-02-28T18:23:23+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynkeg.F90
r2625 r2633 51 51 !! - save this trends (l_trddyn=T) for post-processing 52 52 !!---------------------------------------------------------------------- 53 USE wrk_nemo, ONLY: wrk_ use, wrk_release53 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 54 54 USE oce , ONLY: ztrdu => ta , ztrdv => sa ! (ta,sa) used as 3D workspace 55 55 USE wrk_nemo, ONLY: zhke => wrk_3d_1 ! 3D workspace … … 61 61 !!---------------------------------------------------------------------- 62 62 63 IF( .NOT. wrk_use(3,1) ) THEN63 IF(wrk_in_use(3,1) ) THEN 64 64 CALL ctl_stop('dyn_key: requested workspace array is unavailable.') ; RETURN 65 65 ENDIF … … 135 135 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 136 136 ! 137 IF( .NOT. wrk_release(3, 1) ) CALL ctl_stop('dyn_key: failed to release workspace array')137 IF(wrk_not_released(3, 1) ) CALL ctl_stop('dyn_key: failed to release workspace array') 138 138 ! 139 139 END SUBROUTINE dyn_keg
Note: See TracChangeset
for help on using the changeset viewer.