Changeset 2715 for trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbc.F90
r2528 r2715 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 … … 26 25 PRIVATE 27 26 28 !! * Routine accessibility 29 PUBLIC trc_sbc ! routine called by step.F90 27 PUBLIC trc_sbc ! routine called by step.F90 30 28 31 29 !! * Substitutions … … 34 32 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 35 33 !! $Id$ 36 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)34 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 37 35 !!---------------------------------------------------------------------- 38 39 36 CONTAINS 40 37 … … 60 57 !! 61 58 !!---------------------------------------------------------------------- 62 !! * Arguments 59 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 60 USE wrk_nemo, ONLY: zemps => wrk_2d_1 61 USE wrk_nemo, ONLY: ztrtrd => wrk_3d_1 62 ! 63 63 INTEGER, INTENT( in ) :: kt ! ocean time-step index 64 65 !! * Local declarations 64 ! 66 65 INTEGER :: ji, jj, jn ! dummy loop indices 67 66 REAL(wp) :: zsrau, zse3t ! temporary scalars 68 REAL(wp), DIMENSION(jpi,jpj) :: zemps ! surface freshwater flux69 REAL(wp), DIMENSION(:,:,:), ALLOCATABLE :: ztrtrd70 67 CHARACTER (len=22) :: charout 71 68 !!---------------------------------------------------------------------- 69 70 IF( wrk_in_use(2, 1) .OR. wrk_in_use(3, 1) ) THEN 71 CALL ctl_stop('trc_sbc: requested workspace array unavailable.') ; RETURN 72 END IF 72 73 73 74 IF( kt == nit000 ) THEN … … 77 78 ENDIF 78 79 79 80 IF( l_trdtrc ) ALLOCATE( ztrtrd(jpi,jpj,jpk) )81 80 82 81 IF( lk_offline ) THEN ! emps in dynamical files contains emps - rnf … … 113 112 END DO ! tracer loop 114 113 ! ! =========== 115 IF( l_trdtrc ) DEALLOCATE( ztrtrd )116 117 114 IF( ln_ctl ) THEN 118 115 WRITE(charout, FMT="('sbc ')") ; CALL prt_ctl_trc_info(charout) 119 116 CALL prt_ctl_trc( tab4d=tra, mask=tmask, clinfo=ctrcnm, clinfo2='trd' ) 120 117 ENDIF 118 119 IF( wrk_not_released(2, 1) .OR. wrk_not_released(3, 1) ) & 120 & CALL ctl_stop('trc_sbc: failed to release workspace array.') 121 121 122 122 END SUBROUTINE trc_sbc
Note: See TracChangeset
for help on using the changeset viewer.