- Timestamp:
- 2011-03-16T09:03:19+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso_grif.F90
r2690 r2696 91 91 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 92 92 USE oce , ONLY: zftu => ua , zftv => va ! (ua,va) used as 3D workspace 93 USE wrk_nemo, ONLY: zdit => wrk_3d_ 1 , zdjt => wrk_3d_2 , ztfw => wrk_3d_3! 3D workspace93 USE wrk_nemo, ONLY: zdit => wrk_3d_6 , zdjt => wrk_3d_7 , ztfw => wrk_3d_8 ! 3D workspace 94 94 USE wrk_nemo, ONLY: z2d => wrk_2d_1 ! 2D workspace 95 95 ! … … 118 118 !!---------------------------------------------------------------------- 119 119 120 IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use(2, 1) ) THEN120 IF( wrk_in_use(3, 6,7,8) .OR. wrk_in_use(2, 1) ) THEN 121 121 CALL ctl_stop('tra_ldf_iso_grif: requested workspace arrays unavailable.') ; RETURN 122 122 ENDIF … … 125 125 ! zdkt(:,:,1:2) instead as then wouldn't need to re-map bounds. 126 126 ! As it is, we make zdkt a module array and allocate it in _alloc(). 127 !zdkt(1:jpi,1:jpj,0:1) => wrk_3d_ 4(:,:,1:2)127 !zdkt(1:jpi,1:jpj,0:1) => wrk_3d_9(:,:,1:2) 128 128 129 129 IF( kt == nit000 ) THEN … … 348 348 END DO 349 349 ! 350 IF( wrk_not_released(3, 1,2,3,4) .OR. &350 IF( wrk_not_released(3, 6,7,8) .OR. & 351 351 wrk_not_released(2, 1) ) CALL ctl_stop('tra_ldf_iso_grif: failed to release workspace arrays') 352 352 !
Note: See TracChangeset
for help on using the changeset viewer.