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_fabm.F90 in branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/TOP_SRC/FABM – NEMO

source: branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/TOP_SRC/FABM/trcnam_fabm.F90 @ 10270

Last change on this file since 10270 was 10270, checked in by kingr, 5 years ago

Removed svn keyworkd from a few FABM files.

File size: 2.3 KB
Line 
1MODULE trcnam_fabm
2   !!======================================================================
3   !!                      ***  MODULE trcnam_fabm  ***
4   !! TOP :   initialisation of some run parameters for FABM bio-model
5   !!======================================================================
6   !! History :   2.0  !  2007-12  (C. Ethe, G. Madec) Original code
7   !!----------------------------------------------------------------------
8#if defined key_fabm
9   !!----------------------------------------------------------------------
10   !!   'key_fabm'   :                                       FABM model
11   !!----------------------------------------------------------------------
12   !! trc_nam_fabm      : FABM initialisation
13   !!----------------------------------------------------------------------
14   USE oce_trc         ! Ocean variables
15   USE par_trc         ! TOP parameters
16   USE trc             ! TOP variables
17
18   USE par_fabm
19   USE trcsms_fabm
20
21
22   IMPLICIT NONE
23   PRIVATE
24
25   PUBLIC   trc_nam_fabm   ! called by trcnam.F90 module
26   PUBLIC   trc_nam_fabm_override ! called by trcnam.F90 module
27
28   !!----------------------------------------------------------------------
29   !! NEMO/TOP 3.3 , NEMO Consortium (2010)
30   !! $Id$
31   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
32   !!----------------------------------------------------------------------
33
34CONTAINS
35
36   SUBROUTINE trc_nam_fabm
37   END SUBROUTINE trc_nam_fabm
38
39   SUBROUTINE trc_nam_fabm_override
40      INTEGER :: jn
41
42      DO jn=1,jp_fabm
43         ctrcnm(jp_fabm_m1+jn) = model%state_variables(jn)%name
44         ctrcln(jp_fabm_m1+jn) = model%state_variables(jn)%long_name
45         ctrcun(jp_fabm_m1+jn) = model%state_variables(jn)%units
46         ln_trc_ini(jp_fabm_m1+jn) = .FALSE.
47      END DO
48   END SUBROUTINE trc_nam_fabm_override
49   
50#else
51   !!----------------------------------------------------------------------
52   !!  Dummy module :                                             No FABM
53   !!----------------------------------------------------------------------
54CONTAINS
55   SUBROUTINE trc_nam_fabm                      ! Empty routine
56   END  SUBROUTINE  trc_nam_fabm
57
58   SUBROUTINE trc_nam_fabm_override
59   END SUBROUTINE trc_nam_fabm_override
60#endif 
61
62   !!======================================================================
63END MODULE trcnam_fabm
Note: See TracBrowser for help on using the repository browser.