- 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/TRA/traadv.F90
r2636 r2690 63 63 !!---------------------------------------------------------------------- 64 64 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 65 USE wrk_nemo, ONLY: zun => wrk_3d_1 , zvn => wrk_3d_2, zwn => wrk_3d_3 ! 3D workspace65 USE wrk_nemo, ONLY: zun => wrk_3d_1 , zvn => wrk_3d_2 , zwn => wrk_3d_3 ! 3D workspace 66 66 ! 67 67 INTEGER, INTENT( in ) :: kt ! ocean time-step index … … 70 70 !!---------------------------------------------------------------------- 71 71 ! 72 IF( wrk_in_use(3, 1,2,3) ) THEN72 IF( wrk_in_use(3, 1,2,3) ) THEN 73 73 CALL ctl_stop('tra_adv: requested workspace arrays unavailable') ; RETURN 74 END 74 ENDIF 75 75 ! ! set time step 76 76 IF( neuler == 0 .AND. kt == nit000 ) THEN ! at nit000 … … 132 132 & tab3d_2=tsa(:,:,:,jp_sal), clinfo2= ' Sa: ', mask2=tmask, clinfo3='tra' ) 133 133 ! 134 IF( wrk_not_released(3,1,2,3) ) CALL ctl_stop('tra_adv: failed to release workspace arrays')134 IF( wrk_not_released(3,1,2,3) ) CALL ctl_stop('tra_adv: failed to release workspace arrays') 135 135 ! 136 136 END SUBROUTINE tra_adv
Note: See TracChangeset
for help on using the changeset viewer.