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.
trcnam_my_trc.F90 in branches/UKMO/dev_r5785_SSS_obsoper/NEMOGCM/NEMO/TOP_SRC/MY_TRC – NEMO

source: branches/UKMO/dev_r5785_SSS_obsoper/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcnam_my_trc.F90 @ 7773

Last change on this file since 7773 was 7773, checked in by mattmartin, 7 years ago

Committing updates after doing the following:

  • merging the branch dev_r4650_general_vert_coord_obsoper@7763 into this branch
  • updating it so that the following OBS changes were implemented correctly on top of the simplification changes:
    • generalised vertical coordinate for profile obs. This was done so that is now the default option.
    • sst bias correction implemented with the new simplified obs code.
    • included the biogeochemical obs types int he new simplified obs code.
    • included the changes to exclude obs in the boundary for limited area models
    • included other changes for the efficiency of the obs operator to remove global arrays.
File size: 2.3 KB
Line 
1MODULE trcnam_my_trc
2   !!======================================================================
3   !!                      ***  MODULE trcnam_my_trc  ***
4   !! TOP :   initialisation of some run parameters for MY_TRC bio-model
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'   :                                       MY_TRC model
11   !!----------------------------------------------------------------------
12   !! trc_nam_my_trc      : MY_TRC model initialisation
13   !!----------------------------------------------------------------------
14   USE oce_trc         ! Ocean variables
15   USE par_trc         ! TOP parameters
16   USE trc             ! TOP variables
17
18   IMPLICIT NONE
19   PRIVATE
20
21   PUBLIC   trc_nam_my_trc   ! called by trcnam.F90 module
22
23   !!----------------------------------------------------------------------
24   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
25   !! $Id: trcnam_my_trc.F90 7740 2017-02-27 13:18:43Z mattmartin $
26   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
27   !!----------------------------------------------------------------------
28
29CONTAINS
30
31   SUBROUTINE trc_nam_my_trc
32      !!----------------------------------------------------------------------
33      !!                     ***  trc_nam_my_trc  *** 
34      !!
35      !! ** Purpose :   read MY_TRC namelist
36      !!
37      !!----------------------------------------------------------------------
38      !
39      IF(lwp) WRITE(numout,*)
40      IF(lwp) WRITE(numout,*) ' trc_nam_my_trc : read MY_TRC namelists'
41      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~~'
42      !
43   END SUBROUTINE trc_nam_my_trc
44   
45#else
46   !!----------------------------------------------------------------------
47   !!  Dummy module :                                             No MY_TRC
48   !!----------------------------------------------------------------------
49CONTAINS
50   SUBROUTINE trc_nam_my_trc                      ! Empty routine
51   END  SUBROUTINE  trc_nam_my_trc
52#endif 
53
54   !!======================================================================
55END MODULE trcnam_my_trc
Note: See TracBrowser for help on using the repository browser.