source: branches/dev_001_GM/NEMO/TOP_SRC/trcstp.F90 @ 771

Last change on this file since 771 was 771, checked in by gm, 13 years ago

dev_001_GM - small error corrections

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