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_medusa.F90 in branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA – NEMO

source: branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsms_medusa.F90 @ 5712

Last change on this file since 5712 was 5712, checked in by acc, 9 years ago

Branch NERC/dev_r5107_NOC_MEDUSA. Remove extra blanks from the ends of the SVN keyword lines that cause unnecessary conflicts with fcm_make

File size: 3.0 KB
RevLine 
[5707]1MODULE trcsms_medusa
2   !!======================================================================
3   !!                         ***  MODULE trcsms_medusa  ***
4   !! TOP :   Main module of the MEDUSA tracers
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) Original code
7   !!              -   !  2008-08  (K. Popova) adaptation for MEDUSA
8   !!              -   !  2008-11  (A. Yool) continuing adaptation for MEDUSA
9   !!              -   !  2010-03  (A. Yool) updated for branch inclusion
10   !!----------------------------------------------------------------------
11#if defined key_medusa
12   !!----------------------------------------------------------------------
13   !!   'key_medusa'                                       bio tracers
14   !!----------------------------------------------------------------------
15   !! trc_sms_medusa   : MEDUSA_TRC model main routine
16   !!----------------------------------------------------------------------
17   USE par_trc         ! TOP parameters
18   USE oce_trc
19   USE trc
20   USE trcbio_medusa
21   USE trcopt_medusa
22   USE trcsed_medusa
23
24
25   IMPLICIT NONE
26   PRIVATE
27
28   PUBLIC   trc_sms_medusa   ! called by trcsms.F90 module
29
30   !!----------------------------------------------------------------------
31   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)
[5712]32   !! $Id$
[5707]33   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
34   !!----------------------------------------------------------------------
35
36CONTAINS
37
38   SUBROUTINE trc_sms_medusa( kt )
39      !!----------------------------------------------------------------------
40      !!                     ***  trc_sms_medusa  *** 
41      !!
42      !! ** Purpose :   main routine of MEDUSA_TRC model
43      !!
44      !! ** Method  : -
45      !!----------------------------------------------------------------------
46      INTEGER, INTENT(in) :: kt   ! ocean time-step index
47
48      IF( kt == nittrc000 ) THEN
49       IF(lwp) WRITE(numout,*)
50       IF(lwp) WRITE(numout,*) ' trc_sms_medusa:  MEDUSA model'
51       IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
52      ENDIF
53
54      CALL trc_opt_medusa( kt )   ! optical model
55
56# if defined key_kill_medusa
57      !! MEDUSA skipped
58      IF(lwp) WRITE(numout,*) ' MEDUSA killed at kt =', kt
59      CALL flush(numout)
60# else
61      CALL trc_bio_medusa( kt )   ! biological model
62
63      CALL trc_sed_medusa( kt )   ! sedimentation model
64# endif
65
66   END SUBROUTINE trc_sms_medusa
67   
68#else
69   !!----------------------------------------------------------------------
70   !!   Dummy module                                        No MEDUSA model
71   !!----------------------------------------------------------------------
72CONTAINS
73   SUBROUTINE trc_sms_medusa( kt )             ! Empty routine
74      INTEGER, INTENT( in ) ::   kt
75      WRITE(*,*) 'trc_sms_medusa: You should not have seen this print! error?', kt
76   END SUBROUTINE trc_sms_medusa
77#endif
78
79   !!======================================================================
80END MODULE trcsms_medusa
Note: See TracBrowser for help on using the repository browser.