source: trunk/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90 @ 2715

Last change on this file since 2715 was 2715, checked in by rblod, 10 years ago

First attempt to put dynamic allocation on the trunk

  • Property svn:keywords set to Id
File size: 3.3 KB
Line 
1MODULE trcini_my_trc
2   !!======================================================================
3   !!                         ***  MODULE trcini_my_trc  ***
4   !! TOP :   initialisation 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_ini_my_trc   : MY_TRC model initialisation
13   !!----------------------------------------------------------------------
14   USE par_trc         ! TOP parameters
15   USE oce_trc
16   USE trc
17
18   IMPLICIT NONE
19   PRIVATE
20
21   PUBLIC   trc_ini_my_trc   ! called by trcini.F90 module
22
23   !!----------------------------------------------------------------------
24   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
25   !! $Id$
26   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
27   !!----------------------------------------------------------------------
28CONTAINS
29
30   SUBROUTINE trc_ini_my_trc
31      !!----------------------------------------------------------------------
32      !!                     ***  trc_ini_my_trc  *** 
33      !!
34      !! ** Purpose :   initialization for MY_TRC model
35      !!
36      !! ** Method  : - Read the namcfc namelist and check the parameter values
37      !!----------------------------------------------------------------------
38
39      !                       ! Allocate MY_TRC arrays
40      IF( sms_lobster_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' )
41
42      CALL trc_ctl_my_trc     ! Control consitency
43
44      IF(lwp) WRITE(numout,*)
45      IF(lwp) WRITE(numout,*) ' trc_ini_my_trc: initialisation of MY_TRC model'
46      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
47     
48      IF( .NOT. ln_rsttr ) trn(:,:,:,jp_myt0:jp_myt1) = 0.
49      !
50   END SUBROUTINE trc_ini_my_trc
51
52
53   SUBROUTINE trc_ctl_my_trc
54      !!----------------------------------------------------------------------
55      !!                     ***  ROUTINE trc_ctl_pisces  ***
56      !!
57      !! ** Purpose :   control the cpp options, namelist and files
58      !!----------------------------------------------------------------------
59      INTEGER :: jl, jn
60      !!----------------------------------------------------------------------
61      !
62      IF(lwp) WRITE(numout,*)
63      IF(lwp) WRITE(numout,*) ' use COLOR tracer '
64      !
65      DO jl = 1, jp_my_trc
66         jn = jp_myt0 + jl - 1
67         WRITE( ctrcnm(jn),'(a,i2.2)' ) 'CLR', jn
68         ctrcnl(jn)='Color concentration'
69         ctrcun(jn)='N/A'
70      END DO
71      !
72   END SUBROUTINE trc_ctl_my_trc
73
74#else
75   !!----------------------------------------------------------------------
76   !!   Dummy module                                        No MY_TRC model
77   !!----------------------------------------------------------------------
78CONTAINS
79   SUBROUTINE trc_ini_my_trc             ! Empty routine
80   END SUBROUTINE trc_ini_my_trc
81#endif
82
83   !!======================================================================
84END MODULE trcini_my_trc
Note: See TracBrowser for help on using the repository browser.