Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_imp.F90
r2602 r2715 34 34 USE in_out_manager ! I/O manager 35 35 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 36 USE lib_mpp ! MPP library 36 37 37 38 IMPLICIT NONE … … 73 74 !! ** Action : - pta becomes the after tracer 74 75 !!--------------------------------------------------------------------- 75 USE oce , ONLY : zwd => ua ! ua used as workspace 76 USE oce , ONLY : zws => va ! va - - 77 !! 76 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 77 USE oce , ONLY: zwd => ua , zws => va ! (ua,va) used as 3D workspace 78 USE wrk_nemo, ONLY: zwi => wrk_3d_6 , zwt => wrk_3d_7 ! 3D workspace 79 ! 78 80 INTEGER , INTENT(in ) :: kt ! ocean time-step index 79 81 CHARACTER(len=3) , INTENT(in ) :: cdtype ! =TRA or TRC (tracer indicator) … … 82 84 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(in ) :: ptb ! before and now tracer fields 83 85 REAL(wp), DIMENSION(jpi,jpj,jpk,kjpt), INTENT(inout) :: pta ! tracer trend 84 !! 85 INTEGER :: ji, jj, jk, jn ! dummy loop indices 86 REAL(wp) :: zrhs ! local scalars 87 REAL(wp) :: ze3tb, ze3tn, ze3ta ! variable vertical scale factors 88 REAL(wp), DIMENSION(jpi,jpj,jpk) :: zwi, zwt ! workspace arrays 86 ! 87 INTEGER :: ji, jj, jk, jn ! dummy loop indices 88 REAL(wp) :: zrhs, ze3tb, ze3tn, ze3ta ! local scalars 89 89 !!--------------------------------------------------------------------- 90 91 IF( wrk_in_use(3, 6,7) ) THEN 92 CALL ctl_stop('tra_zdf_imp : requested workspace arrays unavailable.') ; RETURN 93 ENDIF 90 94 91 95 IF( kt == nit000 ) THEN … … 107 111 ! Build matrix if temperature or salinity (only in double diffusion case) or first passive tracer 108 112 ! 109 IF( ( cdtype == 'TRA' .AND. ( ( jn == jp_tem ) .OR. ( jn == jp_sal .AND. lk_zdfddm ) ) ) .OR.&113 IF( ( cdtype == 'TRA' .AND. ( jn == jp_tem .OR. ( jn == jp_sal .AND. lk_zdfddm ) ) ) .OR. & 110 114 & ( cdtype == 'TRC' .AND. jn == 1 ) ) THEN 111 115 ! … … 224 228 ! ! ================= ! 225 229 ! 230 IF( wrk_not_released(3, 6,7) ) CALL ctl_stop('tra_zdf_imp: failed to release workspace arrays') 231 ! 226 232 END SUBROUTINE tra_zdf_imp 227 233
Note: See TracChangeset
for help on using the changeset viewer.