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.
trcsms_my_trc.F90 in trunk/NEMO/TOP_SRC/MY_TRC – NEMO

source: trunk/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90 @ 932

Last change on this file since 932 was 932, checked in by cetlod, 16 years ago

adding modules for MY_TRC SMS model, see ticket 138

File size: 2.4 KB
Line 
1MODULE trcsms_my_trc
2   !!======================================================================
3   !!                         ***  MODULE trcsms_my_trc  ***
4   !! TOP :   Main module of the MY_TRC tracers
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) Original code
7   !!----------------------------------------------------------------------
8#if defined key_my_trc
9   !!----------------------------------------------------------------------
10   !!   'key_my_trc'                                               CFC tracers
11   !!----------------------------------------------------------------------
12   !! trc_sms_my_trc   : MY_TRC model main routine
13   !!----------------------------------------------------------------------
14   USE par_trc         ! TOP parameters
15
16   IMPLICIT NONE
17   PRIVATE
18
19   PUBLIC   trc_sms_my_trc   ! called by trcsms.F90 module
20
21   !!----------------------------------------------------------------------
22   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)
23   !! $Id: trcini_cfc.F90 766 2007-12-14 08:59:00Z gm $
24   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
25   !!----------------------------------------------------------------------
26
27CONTAINS
28
29   SUBROUTINE trc_sms_my_trc( kt )
30      !!----------------------------------------------------------------------
31      !!                     ***  trc_sms_my_trc  *** 
32      !!
33      !! ** Purpose :   main routine of MY_TRC model
34      !!
35      !! ** Method  : -
36      !!----------------------------------------------------------------------
37      INTEGER, INTENT(in) :: kt   ! ocean time-step index
38
39      IF(lwp) WRITE(numout,*)
40      IF(lwp) WRITE(numout,*) ' trc_sms_my_trc:  MY_TRC model'
41      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
42      !
43   END SUBROUTINE trc_sms_my_trc
44   
45#else
46   !!----------------------------------------------------------------------
47   !!   Dummy module                                        No MY_TRC model
48   !!----------------------------------------------------------------------
49CONTAINS
50   SUBROUTINE trc_sms_my_trc( kt )             ! Empty routine
51      INTEGER, INTENT( in ) ::   kt
52      WRITE(*,*) 'trc_sms_my_trc: You should not have seen this print! error?', kt
53   END SUBROUTINE trc_sms_my_trc
54#endif
55
56   !!======================================================================
57END MODULE trcsms_my_trc
Note: See TracBrowser for help on using the repository browser.