source: branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/IDTRA/trcini_idtra.F90 @ 6046

Last change on this file since 6046 was 6046, checked in by jpalmier, 5 years ago

JPALM — 14-12-2015 — Add the ideal tracer modules

File size: 3.6 KB
Line 
1MODULE trcini_idtra
2   !!======================================================================
3   !!                         ***  MODULE trcini_idtra  ***
4   !! TOP :   initialisation of the IDEAL-TRACER tracers
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) from trcini.idtra.h90
7   !!----------------------------------------------------------------------
8#if defined key_idtra
9   !!----------------------------------------------------------------------
10   !!   'key_idtra'                                               IDEAL-TRACER tracers
11   !!----------------------------------------------------------------------
12   !! trc_ini_idtra      : IDEAL-TRACER model initialisation
13   !!----------------------------------------------------------------------
14   USE oce_trc         ! Ocean variables
15   USE par_trc         ! TOP parameters
16   USE trc             ! TOP variables
17   USE trcsms_idtra    ! IDEAL-TRACER sms trends
18   ! USE par_idtra       ! IDEAL-TRACER parameters
19   ! USE in_out_manager  ! I/O manager
20   ! USE lib_mpp
21   ! USE iom
22
23   IMPLICIT NONE
24   PRIVATE
25
26   PUBLIC   trc_ini_idtra   ! called by trcini.F90 module
27
28   INTEGER  ::   inum                   ! unit number
29
30   !!----------------------------------------------------------------------
31   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)
32   !! $Id$
33   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
34   !!----------------------------------------------------------------------
35CONTAINS
36
37   SUBROUTINE trc_ini_idtra
38      !!----------------------------------------------------------------------
39      !!                     ***  trc_ini_idtra  ***
40      !!
41      !! ** Purpose :   initialization for idtra model
42      !!
43      !! ** Method  : - Read the namidtra namelist and check the parameter values
44      !!----------------------------------------------------------------------
45      INTEGER  ::    jn, jl 
46      !!----------------------------------------------------------------------
47
48
49      ! Initialization of trn in case of  no restart
50      !----------------------------------------------
51      IF( .NOT. ln_rsttr ) THEN
52         IF(lwp) THEN
53            WRITE(numout,*)
54            WRITE(numout,*) 'Initialization de id-tracers ; No restart : '
55            WRITE(numout,*) '                             ; Init field equal 1 at surface - zero elsewhere'
56         ENDIF
57         DO jn = jp_idtra0, jp_idtra1
58             trn(:,:,:,jn) = 0.e0
59             trn(:,:,1,jn) = 1.0
60           IF(lwp) WRITE(numout,*) 'Idealise Tracer initialisation -- jn = ',jn
61         END DO
62      ENDIF
63
64
65      !   Ideal traceur do not need any atmospheric concentration.
66      ! We consider that sucface concentration is equal to 1,
67      ! that it is advectied within the water circulation,
68      ! and that it is regularly degraded as if it was a radiactive tracer (tricium for example)
69      ! But we can play with tha caracteristic time of
70      !--------------------------------------------------------------------
71
72
73
74      IF(lwp) WRITE(numout,*) 'Initialization of IDEAL-TRACER tracers done'
75      IF(lwp) WRITE(numout,*) ' '
76
77   END SUBROUTINE trc_ini_idtra
78
79#else
80   !!----------------------------------------------------------------------
81   !!   Dummy module                                         No IDEAL-TRACER tracers
82   !!----------------------------------------------------------------------
83CONTAINS
84   SUBROUTINE trc_ini_idtra             ! Empty routine
85
86
87   END SUBROUTINE trc_ini_idtra
88#endif
89
90   !!======================================================================
91END MODULE trcini_idtra
92                                               
93
94
95
Note: See TracBrowser for help on using the repository browser.