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.
trcini_my_trc.F90 in branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC – NEMO

source: branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcini_my_trc.F90 @ 7073

Last change on this file since 7073 was 7073, checked in by cetlod, 7 years ago

New top interface : Update my_trc module

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