Changeset 14072 for NEMO/trunk/src/OCE/TRA/traldf.F90
- Timestamp:
- 2020-12-04T08:48:38+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRA/traldf.F90
r13982 r14072 2 2 !!====================================================================== 3 3 !! *** MODULE traldf *** 4 !! Ocean Active tracers : lateral diffusive trends 4 !! Ocean Active tracers : lateral diffusive trends 5 5 !!===================================================================== 6 6 !! History : 9.0 ! 2005-11 (G. Madec) Original code 7 !! NEMO 3.0 ! 2008-01 (C. Ethe, G. Madec) merge TRC-TRA 7 !! NEMO 3.0 ! 2008-01 (C. Ethe, G. Madec) merge TRC-TRA 8 8 !! 3.7 ! 2013-12 (G. Madec) remove the optional computation from T & S anomaly profiles and traldf_bilapg 9 9 !! - ! 2013-12 (F. Lemarie, G. Madec) triad operator (Griffies) + Method of Stabilizing Correction … … 37 37 PRIVATE 38 38 39 PUBLIC tra_ldf ! called by step.F90 40 PUBLIC tra_ldf_init ! called by nemogcm.F90 39 PUBLIC tra_ldf ! called by step.F90 40 PUBLIC tra_ldf_init ! called by nemogcm.F90 41 41 42 42 !!---------------------------------------------------------------------- 43 43 !! NEMO/OCE 4.0 , NEMO Consortium (2018) 44 !! $Id$ 44 !! $Id$ 45 45 !! Software governed by the CeCILL license (see ./LICENSE) 46 46 !!---------------------------------------------------------------------- … … 50 50 !!---------------------------------------------------------------------- 51 51 !! *** ROUTINE tra_ldf *** 52 !! 52 !! 53 53 !! ** Purpose : compute the lateral ocean tracer physics. 54 54 !!---------------------------------------------------------------------- … … 120 120 !!---------------------------------------------------------------------- 121 121 !! *** ROUTINE tra_ldf_init *** 122 !! 122 !! 123 123 !! ** Purpose : Choice of the operator for the lateral tracer diffusion 124 124 !! 125 125 !! ** Method : set nldf_tra from the namtra_ldf logicals 126 126 !!---------------------------------------------------------------------- 127 INTEGER :: ioptio, ierr ! temporary integers 127 INTEGER :: ioptio, ierr ! temporary integers 128 128 !!---------------------------------------------------------------------- 129 129 !
Note: See TracChangeset
for help on using the changeset viewer.