- Timestamp:
- 2017-04-07T10:33:13+02:00 (7 years ago)
- Location:
- trunk/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90
r7872 r7881 44 44 PUBLIC trc_nxt ! routine called by step.F90 45 45 46 REAL(wp) :: r 2dttrc, rfact1, rfact246 REAL(wp) :: rfact1, rfact2 47 47 48 48 !!---------------------------------------------------------------------- … … 113 113 END DO 114 114 ELSE 115 IF( .NOT. l k_offline ) THEN ! Leap-Frog + Asselin filter time stepping115 IF( .NOT. l_offline ) THEN ! Leap-Frog + Asselin filter time stepping 116 116 IF( ln_linssh ) THEN ; CALL tra_nxt_fix( kt, nittrc000, 'TRC', trb, trn, tra, jptra ) ! linear ssh 117 117 ELSE ; CALL tra_nxt_vvl( kt, nittrc000, rdttrc, 'TRC', trb, trn, tra, & -
trunk/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90
r7646 r7881 7 7 !! 2.0 ! 2007-12 (C. Ethe, G. Madec) rewritting 8 8 !!---------------------------------------------------------------------- 9 #if defined key_top10 !!----------------------------------------------------------------------11 !! 'key_top' TOP models12 !!----------------------------------------------------------------------13 !14 9 ! !* Domain size * 15 10 USE par_oce , ONLY : jpi => jpi !: first dimension of grid --> i … … 117 112 USE zdfmxl , ONLY : hmlpt => hmlpt !: mixed layer depth at t-points (m) 118 113 119 #else120 !!----------------------------------------------------------------------121 !! Empty module : No passive tracer122 !!----------------------------------------------------------------------123 #endif124 125 !!----------------------------------------------------------------------126 !! NEMO/TOP 3.3 , NEMO Consortium (2010)127 !! $Id$128 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)129 !!======================================================================130 114 END MODULE oce_trc -
trunk/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90
r7646 r7881 6 6 !! History : - ! 2005-07 (C. Talandier) original code for OPA 7 7 !! 1.0 ! 2005-10 (C. Ethe ) adapted to passive tracer 8 !!----------------------------------------------------------------------9 #if defined key_top10 !!----------------------------------------------------------------------11 !! 'key_top' TOP models12 8 !!---------------------------------------------------------------------- 13 9 !! prt_ctl_trc : control print in mpp for passive tracers … … 299 295 END SUBROUTINE prt_ctl_trc_init 300 296 301 #else302 !!----------------------------------------------------------------------303 !! Dummy module : NO passive tracer304 !!----------------------------------------------------------------------305 #endif306 307 !!----------------------------------------------------------------------308 !! NEMO/TOP 3.3 , NEMO Consortium (2010)309 !! $Id$310 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)311 !!======================================================================312 297 END MODULE prtctl_trc -
trunk/NEMOGCM/NEMO/TOP_SRC/trc.F90
r7646 r7881 7 7 !! - ! 2000-04 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD 8 8 !! NEMO 1.0 ! 2004-03 (C. Ethe) Free form and module 9 !!----------------------------------------------------------------------10 #if defined key_top11 !!----------------------------------------------------------------------12 !! 'key_top' TOP models13 9 !!---------------------------------------------------------------------- 14 10 USE par_oce … … 224 220 END FUNCTION trc_alloc 225 221 226 #else227 !!----------------------------------------------------------------------228 !! Empty module : No passive tracer229 !!----------------------------------------------------------------------230 #endif231 232 222 !!====================================================================== 233 223 END MODULE trc
Note: See TracChangeset
for help on using the changeset viewer.