- Timestamp:
- 2012-02-25T16:50:01+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/TRP/trcbbl.F90
r3294 r3318 5 5 !! layer scheme 6 6 !!====================================================================== 7 !!==============================================================================8 7 !! History : OPA ! 1996-06 (L. Mortier) Original code 9 8 !! 8.0 ! 1997-11 (G. Madec) Optimization … … 18 17 !! 'key_trabbl diffusive or/and adevective bottom boundary layer 19 18 !!---------------------------------------------------------------------- 20 !! trc_bbl 19 !! trc_bbl : update the tracer trends due to the bottom boundary layer (advective and/or diffusive) 21 20 !!---------------------------------------------------------------------- 22 USE oce_trc 23 USE trc 21 USE oce_trc ! ocean dynamics and active tracers variables 22 USE trc ! ocean passive tracers variables 24 23 USE trcnam_trp ! passive tracers transport namelist variables 25 USE trabbl !26 USE prtctl_trc 27 USE trd mod_oce28 USE trdtra 24 USE trabbl ! tracers: bottom boundary layer 25 USE prtctl_trc ! Print control for debbuging 26 USE trd_oce ! trends: ocean variables 27 USE trdtra ! trends: tracer manager 29 28 30 PUBLIC trc_bbl ! routine called by step.F90 31 29 PUBLIC trc_bbl ! routine called by step.F90 32 30 33 31 !! * Substitutions … … 38 36 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 39 37 !!---------------------------------------------------------------------- 40 41 38 CONTAINS 42 43 39 44 40 SUBROUTINE trc_bbl( kt ) … … 93 89 DO jn = 1, jptra 94 90 ztrtrd(:,:,:,jn) = tra(:,:,:,jn) - ztrtrd(:,:,:,jn) 95 CALL trd_tra( kt, 'TRC', jn, jptra_ trd_ldf, ztrtrd(:,:,:,jn) )91 CALL trd_tra( kt, 'TRC', jn, jptra_ldf, ztrtrd(:,:,:,jn) ) 96 92 END DO 97 93 CALL wrk_dealloc( jpi, jpj, jpk, jptra, ztrtrd ) ! temporary save of trends
Note: See TracChangeset
for help on using the changeset viewer.