Changeset 3294 for trunk/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/NST_SRC/agrif_top_sponge.F90
r2715 r3294 10 10 USE trc 11 11 USE lib_mpp 12 USE wrk_nemo 12 13 13 14 IMPLICIT NONE … … 29 30 !!--------------------------------------------- 30 31 #include "domzgr_substitute.h90" 31 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released32 USE wrk_nemo, ONLY: wrk_2d_133 USE wrk_nemo, ONLY: wrk_4d_1, wrk_4d_2, wrk_4d_3, wrk_4d_434 32 !! 35 33 INTEGER :: ji,jj,jk,jl … … 41 39 42 40 #if defined SPONGE_TOP 43 IF( wrk_in_use(4, 1,2,3,4) .OR. wrk_in_use(2, 1) ) THEN 44 CALL ctl_stop('Agrif_Sponge_trc : requested workspace arrays unavailable') 45 RETURN 46 ENDIF 47 localviscsponge => wrk_2d_1 48 trbdiff(:,:,:,:) => wrk_4d_1(:,:,:,1:jptra) 49 ztru (:,:,:,:) => wrk_4d_2(:,:,:,1:jptra) 50 ztrv (:,:,:,:) => wrk_4d_3(:,:,:,1:jptra) 51 ztab (:,:,:,:) => wrk_4d_4(:,:,:,1:jptra) 41 CALL wrk_alloc( jpi, jpj, localviscsponge ) 42 CALL wrk_alloc( jpi, jpj, jpk, jptra, trbdiff, ztru, ztrv, ztab ) 52 43 53 44 timecoeff = REAL(Agrif_NbStepint(),wp)/Agrif_rhot() … … 155 146 ENDDO 156 147 157 IF( wrk_not_released(4, 1,2,3,4) .OR. wrk_not_released(2, 1) ) THEN 158 CALL ctl_stop('Agrif_Sponge_trc : failed to release workspace arrays.') 159 RETURN 160 ENDIF 148 CALL wrk_dealloc( jpi, jpj, localviscsponge ) 149 CALL wrk_dealloc( jpi, jpj, jpk, jptra, trbdiff, ztru, ztrv, ztab ) 161 150 162 151 #endif
Note: See TracChangeset
for help on using the changeset viewer.