- Timestamp:
- 2011-11-25T16:42:54+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/NST_SRC/agrif_top_interp.F90
r2715 r3184 9 9 USE trc 10 10 USE lib_mpp 11 USE wrk_nemo_2 11 12 12 13 IMPLICIT NONE … … 29 30 !! *** ROUTINE Agrif_trc *** 30 31 !!--------------------------------------------- 31 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released32 USE wrk_nemo, ONLY: wrk_4d_133 32 34 33 INTEGER :: ji,jj,jk,jn … … 40 39 IF (Agrif_Root()) RETURN 41 40 42 IF( wrk_in_use(4, 1) ) THEN 43 CALL ctl_stop('Agrif_trc : requested workspace arrays unavailable') 44 RETURN 45 ENDIF 46 ztra => wrk_4d_1(:,:,:,jptra) 41 CALL wrk_alloc( jpi, jpj, jpk, jptra, ztra ) 47 42 48 43 Agrif_SpecialValue=0. … … 141 136 ENDIF 142 137 143 IF( wrk_not_released(4, 1) ) THEN 144 CALL ctl_stop('Agrif_trc : failed to release workspace arrays.') 145 RETURN 146 ENDIF 138 CALL wrk_dealloc( jpi, jpj, jpk, jptra, ztra ) 147 139 148 140 END SUBROUTINE Agrif_trc
Note: See TracChangeset
for help on using the changeset viewer.