source: branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90 @ 5600

Last change on this file since 5600 was 5600, checked in by andrewryan, 5 years ago

merged in latest version of trunk alongside changes to SAO_SRC to be compatible with latest OBS

  • Property svn:keywords set to Id
File size: 2.8 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   USE trcsms_my_trc
18
19   IMPLICIT NONE
20   PRIVATE
21
22   PUBLIC   trc_ini_my_trc   ! called by trcini.F90 module
23
24   !!----------------------------------------------------------------------
25   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
26   !! $Id$
27   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
28   !!----------------------------------------------------------------------
29CONTAINS
30
31   SUBROUTINE trc_ini_my_trc
32      !!----------------------------------------------------------------------
33      !!                     ***  trc_ini_my_trc  *** 
34      !!
35      !! ** Purpose :   initialization for MY_TRC model
36      !!
37      !! ** Method  : - Read the namcfc namelist and check the parameter values
38      !!----------------------------------------------------------------------
39
40      !                       ! Allocate MY_TRC arrays
41      IF( trc_sms_my_trc_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'trc_ini_my_trc: unable to allocate MY_TRC arrays' )
42
43      IF(lwp) WRITE(numout,*)
44      IF(lwp) WRITE(numout,*) ' trc_ini_my_trc: passive tracer unit vector'
45      IF(lwp) WRITE(numout,*) ' To check conservation : '
46      IF(lwp) WRITE(numout,*) '   1 - No sea-ice model '
47      IF(lwp) WRITE(numout,*) '   2 - No runoff ' 
48      IF(lwp) WRITE(numout,*) '   3 - precipitation and evaporation equal to 1 : E=P=1 ' 
49      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~'
50     
51      IF( .NOT. ln_rsttr ) trn(:,:,:,jp_myt0:jp_myt1) = 1.
52      !
53   END SUBROUTINE trc_ini_my_trc
54
55#else
56   !!----------------------------------------------------------------------
57   !!   Dummy module                                        No MY_TRC model
58   !!----------------------------------------------------------------------
59CONTAINS
60   SUBROUTINE trc_ini_my_trc             ! Empty routine
61   END SUBROUTINE trc_ini_my_trc
62#endif
63
64   !!======================================================================
65END MODULE trcini_my_trc
Note: See TracBrowser for help on using the repository browser.