- 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/DYN/dynadv_cen2.F90
r2636 r2690 18 18 USE trdmod ! ocean dynamics trends 19 19 USE in_out_manager ! I/O manager 20 USE lib_mpp 20 USE lib_mpp ! MPP library 21 21 USE prtctl ! Print control 22 22 … … 48 48 !!---------------------------------------------------------------------- 49 49 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 50 USE oce , ONLY: zfu => ta ! use ta as 3D workspace 51 USE oce , ONLY: zfv => sa ! use sa as 3D workspace 50 USE oce , ONLY: zfu => ta , zfv => sa ! (ta,sa) used as 3D workspace 52 51 USE wrk_nemo, ONLY: zfu_t => wrk_3d_1 , zfv_t => wrk_3d_4 , zfu_uw =>wrk_3d_6 ! 3D workspaces 53 52 USE wrk_nemo, ONLY: zfu_f => wrk_3d_2 , zfv_f => wrk_3d_5 , zfv_vw =>wrk_3d_7 54 53 USE wrk_nemo, ONLY: zfw => wrk_3d_3 55 ! !54 ! 56 55 INTEGER, INTENT( in ) :: kt ! ocean time-step index 57 ! !56 ! 58 57 INTEGER :: ji, jj, jk ! dummy loop indices 59 REAL(wp) :: zbu, zbv ! temporaryscalars58 REAL(wp) :: zbu, zbv ! local scalars 60 59 !!---------------------------------------------------------------------- 61 60 … … 69 68 IF( wrk_in_use(3, 1,2,3,4,5,6,7) ) THEN 70 69 CALL ctl_stop('dyn_adv_cen2 : requested workspace array unavailable') ; RETURN 71 END 70 ENDIF 72 71 73 72 IF( l_trddyn ) THEN ! Save ua and va trends … … 163 162 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 164 163 ! 165 IF( wrk_not_released(3, 1,2,3,4,5,6,7) ) CALL ctl_stop('dyn_adv_cen2 164 IF( wrk_not_released(3, 1,2,3,4,5,6,7) ) CALL ctl_stop('dyn_adv_cen2: failed to release workspace array') 166 165 ! 167 166 END SUBROUTINE dyn_adv_cen2
Note: See TracChangeset
for help on using the changeset viewer.