source:
branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/TOP_SRC/C14/trcice_c14.F90
@
7953
| Last change on this file since 7953 was 7041, checked in by cetlod, 8 years ago | |
|---|---|
| File size: 1.2 KB | |
| Line | |
|---|---|
| 1 | MODULE trcice_c14 |
| 2 | !!====================================================================== |
| 3 | !! *** MODULE trcice_c14 *** |
| 4 | !!====================================================================== |
| 5 | USE par_trc ! TOP parameters |
| 6 | USE oce_trc ! Ocean variables |
| 7 | USE trc ! TOP variables |
| 8 | |
| 9 | IMPLICIT NONE |
| 10 | PRIVATE |
| 11 | |
| 12 | PUBLIC trc_ice_ini_c14 ! called by trcice.F90 module |
| 13 | |
| 14 | !!---------------------------------------------------------------------- |
| 15 | !! NEMO/TOP 3.3 , NEMO Consortium (2010) |
| 16 | !! $Id: trcice_c14b.F90 4990 2014-12-15 16:42:49Z timgraham $ |
| 17 | !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) |
| 18 | !!---------------------------------------------------------------------- |
| 19 | CONTAINS |
| 20 | |
| 21 | SUBROUTINE trc_ice_ini_c14 |
| 22 | !!---------------------------------------------------------------------- |
| 23 | !! *** trc_ice_c14b *** |
| 24 | !! |
| 25 | !!---------------------------------------------------------------------- |
| 26 | ! |
| 27 | ! |
| 28 | END SUBROUTINE trc_ice_ini_c14 |
| 29 | |
| 30 | !!====================================================================== |
| 31 | END MODULE trcice_c14 |
Note: See TracBrowser
for help on using the repository browser.
