- Timestamp:
- 2011-03-15T16:27:46+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_iso.F90
r2633 r2690 90 90 !! ** Action : Update pta arrays with the before rotated diffusion 91 91 !!---------------------------------------------------------------------- 92 USE oce , zftu => ua ! use ua as workspace 93 USE oce , zftv => va ! use va as workspace 94 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 95 USE wrk_nemo, ONLY: zdkt => wrk_2d_1, zdk1t => wrk_2d_2 ! 2D workspace 96 USE wrk_nemo, ONLY: zdit => wrk_3d_1, zdjt => wrk_3d_2, ztfw => wrk_3d_3 ! 3D workspace 97 USE wrk_nemo, ONLY: z2d => wrk_2d_3 ! 2D workspace - used if key_diaar5 98 !! 92 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 93 USE oce , ONLY: zftu => ua , zftv => va ! (ua,va) used as workspace 94 USE wrk_nemo, ONLY: zdkt => wrk_2d_1 , zdk1t => wrk_2d_2 , z2d => wrk_2d_3 ! 2D workspace 95 USE wrk_nemo, ONLY: zdit => wrk_3d_1 , zdjt => wrk_3d_2 , ztfw => wrk_3d_3 ! 3D workspace 96 ! 99 97 INTEGER , INTENT(in ) :: kt ! ocean time-step index 100 98 CHARACTER(len=3) , INTENT(in ) :: cdtype ! =TRA or TRC (tracer indicator) … … 104 102 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(inout) :: pta ! tracer trend 105 103 REAL(wp) , INTENT(in ) :: pahtb0 ! background diffusion coef 106 ! !104 ! 107 105 INTEGER :: ji, jj, jk, jn ! dummy loop indices 108 106 REAL(wp) :: zmsku, zabe1, zcof1, zcoef3 ! local scalars … … 114 112 !!---------------------------------------------------------------------- 115 113 116 IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use(2, 1,2,3) )THEN 117 CALL ctl_stop('tra_ldf_iso : requested workspace array unavailable.') 118 RETURN 119 END IF 114 IF( wrk_in_use(3, 1,2,3) .OR. wrk_in_use(2, 1,2,3) ) THEN 115 CALL ctl_stop('tra_ldf_iso : requested workspace array unavailable') ; RETURN 116 ENDIF 120 117 121 118 IF( kt == nit000 ) THEN … … 294 291 END DO 295 292 ! 296 IF( wrk_not_released(3, 1,2,3) .OR. & 297 wrk_not_released(2, 1,2,3) )THEN 298 CALL ctl_stop('tra_ldf_iso : failed to release workspace arrays.') 299 END IF 293 IF( wrk_not_released(3, 1,2,3) .OR. & 294 wrk_not_released(2, 1,2,3) ) CALL ctl_stop('tra_ldf_iso: failed to release workspace arrays') 300 295 ! 301 296 END SUBROUTINE tra_ldf_iso
Note: See TracChangeset
for help on using the changeset viewer.