- Timestamp:
- 2011-03-15T16:27:46+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r2683 r2690 615 615 !!---------------------------------------------------------------------- 616 616 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 617 USE wrk_nemo, ONLY: zbathy => wrk_2d_1 617 USE wrk_nemo, ONLY: zbathy => wrk_2d_1 ! 2D workspace 618 618 !! 619 619 INTEGER :: ji, jj, jl ! dummy loop indices … … 745 745 !!---------------------------------------------------------------------- 746 746 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 747 USE wrk_nemo, ONLY: zmbk => wrk_2d_1 747 USE wrk_nemo, ONLY: zmbk => wrk_2d_1 ! 2D workspace 748 748 !! 749 749 INTEGER :: ji, jj ! dummy loop indices … … 848 848 !!---------------------------------------------------------------------- 849 849 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 850 USE wrk_nemo, ONLY: zprt => wrk_3d_1 850 USE wrk_nemo, ONLY: zprt => wrk_3d_1 ! 3D workspace 851 851 !! 852 852 INTEGER :: ji, jj, jk ! dummy loop indices … … 861 861 ! 862 862 IF( wrk_in_use(3, 1) ) THEN 863 CALL ctl_stop('zgr_zps: requested workspace unavailable .') ; RETURN863 CALL ctl_stop('zgr_zps: requested workspace unavailable') ; RETURN 864 864 ENDIF 865 865 … … 1142 1142 !!---------------------------------------------------------------------- 1143 1143 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 1144 USE wrk_nemo, ONLY: zenv => wrk_2d_1 , ztmp => wrk_2d_2 , zmsk => wrk_2d_3 1145 USE wrk_nemo, ONLY: zri => wrk_2d_4 , zrj => wrk_2d_5 , zhbat => wrk_2d_6 1144 USE wrk_nemo, ONLY: zenv => wrk_2d_1 , ztmp => wrk_2d_2 , zmsk => wrk_2d_3 ! 2D workspace 1145 USE wrk_nemo, ONLY: zri => wrk_2d_4 , zrj => wrk_2d_5 , zhbat => wrk_2d_6 ! - - 1146 1146 ! 1147 1147 INTEGER :: ji, jj, jk, jl ! dummy loop argument … … 1153 1153 1154 1154 IF( wrk_in_use(2, 1,2,3,4,5,6) ) THEN 1155 CALL ctl_stop('zgr_sco: ERROR -requested workspace arrays unavailable') ; RETURN1155 CALL ctl_stop('zgr_sco: requested workspace arrays unavailable') ; RETURN 1156 1156 ENDIF 1157 1157
Note: See TracChangeset
for help on using the changeset viewer.