- Timestamp:
- 2017-04-13T16:21:08+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_no_wrk_alloc/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r7646 r7910 40 40 USE prtctl ! print control 41 41 USE fldread ! read input fields 42 USE wrk_nemo ! Memory allocation43 42 USE timing ! Timing 44 43 USE trc, ONLY : ln_rsttr, numrtr, numrtw, lrst_trc … … 109 108 INTEGER, INTENT(in) :: kt ! ocean time-step index 110 109 INTEGER :: ji, jj, jk 111 REAL(wp), POINTER, DIMENSION(:,:) :: zemp110 REAL(wp), DIMENSION(jpi,jpj) :: zemp 112 111 ! 113 112 !!---------------------------------------------------------------------- … … 142 141 ! 143 142 IF( .NOT.ln_linssh ) THEN 144 CALL wrk_alloc(jpi, jpj, zemp )145 143 zhdivtr(:,:,:) = sf_dyn(jf_div)%fnow(:,:,:) * tmask(:,:,:) ! effective u-transport 146 144 emp_b (:,:) = sf_dyn(jf_empb)%fnow(:,:,1) * tmask(:,:,1) ! E-P 147 145 zemp (:,:) = 0.5_wp * ( emp(:,:) + emp_b(:,:) ) + rnf(:,:) + fwbcorr * tmask(:,:,1) 148 146 CALL dta_dyn_ssh( kt, zhdivtr, sshb, zemp, ssha, e3t_a(:,:,:) ) != ssh, vertical scale factor & vertical transport 149 CALL wrk_dealloc(jpi, jpj, zemp )150 147 ! Write in the tracer restart file 151 148 ! ******************************* … … 590 587 REAL(wp) :: ztintb ! ratio applied to before records when doing time interpolation 591 588 INTEGER :: iswap 592 REAL(wp), POINTER, DIMENSION(:,:,:) :: zuslp, zvslp, zwslpi, zwslpj589 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zuslp, zvslp, zwslpi, zwslpj 593 590 !!--------------------------------------------------------------------- 594 591 ! 595 CALL wrk_alloc(jpi, jpj, jpk, zuslp, zvslp, zwslpi, zwslpj )596 592 ! 597 593 IF( sf_dyn(jf_tem)%ln_tint ) THEN ! Computes slopes (here avt is used as workspace) … … 663 659 ENDIF 664 660 ! 665 CALL wrk_dealloc(jpi, jpj, jpk, zuslp, zvslp, zwslpi, zwslpj )666 661 ! 667 662 END SUBROUTINE dta_dyn_slp
Note: See TracChangeset
for help on using the changeset viewer.