New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
trcstp.F90 in tags/nemo_v3_beta/NEMO/TOP_SRC/TRP – NEMO

source: tags/nemo_v3_beta/NEMO/TOP_SRC/TRP/trcstp.F90 @ 5777

Last change on this file since 5777 was 1152, checked in by rblod, 16 years ago

Convert cvs header to svn Id, step II

  • Property svn:executable set to *
  • Property svn:keywords set to Id
File size: 3.1 KB
Line 
1MODULE trcstp
2   !!======================================================================
3   !!                       ***  MODULE trcstp  ***
4   !! Time-stepping    : time loop of opa for passive tracer
5   !!======================================================================
6#if defined key_top
7   !!----------------------------------------------------------------------
8   !!   trc_stp      : passive tracer system time-stepping
9   !!----------------------------------------------------------------------
10   !! * Modules used
11   USE oce_trc          ! ocean dynamics and active tracers variables
12   USE trp_trc
13   USE trctrp           ! passive tracers transport
14   USE trcsms           ! passive tracers sources and sinks
15   USE prtctl_trc       ! Print control for debbuging
16   USE trcdia
17   USE trcrst
18
19   IMPLICIT NONE
20   PRIVATE
21
22   !! * Routine accessibility
23   PUBLIC trc_stp           ! called by step
24   !!----------------------------------------------------------------------
25   !!   TOP 1.0 , LOCEAN-IPSL (2005)
26   !! $Id$
27   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
28   !!----------------------------------------------------------------------
29
30CONTAINS
31
32   SUBROUTINE trc_stp( kt, kindic )
33      !!-------------------------------------------------------------------
34      !!                     ***  ROUTINE trc_stp  ***
35      !!                     
36      !! ** Purpose : Time loop of opa for passive tracer
37      !!
38      !! ** Method  :
39      !!              Compute the passive tracers trends
40      !!              Update the passive tracers
41      !!
42      !! History :
43      !!   9.0  !  04-03  (C. Ethe)  Original
44      !!-------------------------------------------------------------------
45      !! * Arguments
46      INTEGER, INTENT( in ) ::  kt  ! ocean time-step index
47      INTEGER, INTENT( in ) ::  kindic
48      CHARACTER (len=25)    ::  charout
49
50      ! this ROUTINE is called only every ndttrc time step
51      IF( MOD( kt , ndttrc ) /= 0 ) RETURN
52
53      IF(ln_ctl) THEN
54         WRITE(charout,FMT="('kt =', I4,'  d/m/y =',I2,I2,I4)") kt, nday, nmonth, nyear
55         CALL prt_ctl_trc_info(charout)
56      ENDIF
57
58                       CALL trc_rst_opn( kt )       ! Open tracer restart file
59
60                       CALL trc_sms( kt )           ! tracers: sink and source
61
62                       CALL trc_trp( kt )           ! transport of passive tracers
63
64      IF( lrst_trc )   CALL trc_rst_wri( kt )       ! write tracer restart file
65
66                       CALL trc_dia( kt, kindic )   ! diagnostics
67
68
69   END SUBROUTINE trc_stp
70
71#else
72   !!----------------------------------------------------------------------
73   !!   Default key                                     NO passive tracers
74   !!----------------------------------------------------------------------
75CONTAINS
76   SUBROUTINE trc_stp( kt )        ! Empty routine
77      INTEGER, INTENT(in) :: kt
78      WRITE(*,*) 'trc_stp: You should not have seen this print! error?', kt
79   END SUBROUTINE trc_stp
80#endif
81
82   !!======================================================================
83END MODULE trcstp
Note: See TracBrowser for help on using the repository browser.