- Timestamp:
- 2011-03-01T20:04:06+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90
r2633 r2636 16 16 !! trc_sbc : update the tracer trend at ocean surface 17 17 !!---------------------------------------------------------------------- 18 !! * Modules used 19 USE oce_trc ! ocean dynamics and active tracers variables 20 USE trc ! ocean passive tracers variables 21 USE prtctl_trc ! Print control for debbuging 18 USE oce_trc ! ocean dynamics and active tracers variables 19 USE trc ! ocean passive tracers variables 20 USE prtctl_trc ! Print control for debbuging 22 21 USE trdmod_oce 23 22 USE trdtra 23 USE lib_mpp ! MPP library 24 24 25 25 IMPLICIT NONE 26 26 PRIVATE 27 27 28 !! * Routine accessibility 29 PUBLIC trc_sbc ! routine called by step.F90 28 PUBLIC trc_sbc ! routine called by step.F90 30 29 31 30 !! * Substitutions … … 34 33 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 35 34 !! $Id$ 36 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)35 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 37 36 !!---------------------------------------------------------------------- 38 39 37 CONTAINS 40 38 … … 62 60 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 63 61 USE wrk_nemo, zemps => wrk_2d_1 64 ! ! * Arguments62 ! 65 63 INTEGER, INTENT( in ) :: kt ! ocean time-step index 66 67 !! * Local declarations 64 ! 68 65 INTEGER :: ji, jj, jn ! dummy loop indices 69 66 REAL(wp) :: zsrau, zse3t ! temporary scalars … … 73 70 74 71 IF(wrk_in_use(2, 1))THEN 75 CALL ctl_stop('trc_sbc: requested workspace array unavailable.') 76 RETURN 72 CALL ctl_stop('trc_sbc: requested workspace array unavailable.') ; RETURN 77 73 END IF 78 74 … … 126 122 ENDIF 127 123 128 IF(wrk_not_released(2, 1))THEN 129 CALL ctl_stop('trc_sbc: failed to release workspace array.') 130 END IF 131 124 IF( wrk_not_released(2, 1) ) CALL ctl_stop('trc_sbc: failed to release workspace array') 125 ! 132 126 END SUBROUTINE trc_sbc 133 127
Note: See TracChangeset
for help on using the changeset viewer.