- 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_opa_interp.F90
r2977 r3184 27 27 USE agrif_opa_sponge 28 28 USE lib_mpp 29 USE wrk_nemo_2 29 30 30 31 IMPLICIT NONE … … 47 48 !! *** ROUTINE Agrif_Tra *** 48 49 !!---------------------------------------------------------------------- 49 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released50 USE wrk_nemo, ONLY: wrk_4d_151 50 !! 52 51 INTEGER :: ji, jj, jk, jn ! dummy loop indices … … 58 57 IF( Agrif_Root() ) RETURN 59 58 60 ztsa => wrk_4d_1 61 IF( wrk_in_use(4, 1) )THEN 62 CALL ctl_stop('agrif_tra: requested workspace arrays unavailable.') 63 RETURN 64 END IF 59 CALL wrk_alloc( jpi, jpj, jpk, jpts, ztsa ) 65 60 66 61 Agrif_SpecialValue = 0.e0 … … 159 154 ENDIF 160 155 ! 161 IF( wrk_not_released(4, 1) ) THEN 162 CALL ctl_stop('agrif_tra: failed to release workspace arrays.') 163 ENDIF 156 CALL wrk_dealloc( jpi, jpj, jpk, jpts, ztsa ) 164 157 ! 165 158 END SUBROUTINE Agrif_tra … … 170 163 !! *** ROUTINE Agrif_DYN *** 171 164 !!---------------------------------------------------------------------- 172 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released173 USE wrk_nemo, ONLY: wrk_2d_4, wrk_2d_5174 USE wrk_nemo, ONLY: wrk_2d_6, wrk_2d_7175 USE wrk_nemo, ONLY: wrk_3d_1, wrk_3d_2176 165 !! 177 166 INTEGER, INTENT(in) :: kt … … 187 176 IF( Agrif_Root() ) RETURN 188 177 189 spgu1 => wrk_2d_4 ; spgv1 => wrk_2d_5 190 zua2d => wrk_2d_6 ; zva2d => wrk_2d_7 191 zua => wrk_3d_1 ; zva => wrk_3d_2 192 IF( wrk_in_use(2, 4,5,6,7) .OR. wrk_in_use(3, 1,2) )THEN 193 CALL ctl_stop('agrif_dyn: requested workspace arrays unavailable.') 194 RETURN 195 END IF 178 CALL wrk_alloc( jpi, jpj, spgv1, spgu1, zua2d, zva2d ) 179 CALL wrk_alloc( jpi, jpj, jpk, zua, zva ) 196 180 197 181 zrhox = Agrif_Rhox() … … 506 490 ENDIF 507 491 ! 508 IF( wrk_not_released(3, 1,2) .OR. wrk_not_released(2, 4,5,6,7)) THEN 509 CALL ctl_stop('agrif_dyn: failed to release workspace arrays.') 510 ENDIF 492 CALL wrk_dealloc( jpi, jpj, spgv1, spgu1, zua2d, zva2d ) 493 CALL wrk_dealloc( jpi, jpj, jpk, zua, zva ) 511 494 ! 512 495 END SUBROUTINE Agrif_dyn
Note: See TracChangeset
for help on using the changeset viewer.