source: branches/2014/dev_4707_CNRS04_bgc_ice/NEMOGCM/NEMO/TOP_SRC/trcice.F90 @ 4721

Last change on this file since 4721 was 4721, checked in by vancop, 6 years ago

[sea ice tracer boundary conditions ORCA2_LIM2 PISCES]

File size: 3.2 KB
Line 
1MODULE trcice
2   !!======================================================================
3   !!                         ***  MODULE trcice  ***
4   !! TOP :   Manage the communication between TOP and sea ice
5   !!======================================================================
6   !! History :  3.5  ! 2013    (M. Vancoppenolle, O. Aumont, G. Madec), original code
7   !!----------------------------------------------------------------------
8#if defined key_top
9   !!----------------------------------------------------------------------
10   !!   'key_top'                                                TOP models
11   !!----------------------------------------------------------------------
12   !!   trc_ice   :  Call the appropriate sea ice tracer subroutine
13   !!----------------------------------------------------------------------
14
15   USE oce_trc         ! shared variables between ocean and passive tracers
16   USE trc             ! passive tracers common variables
17!  USE trcrst          ! passive tracers restart
18   USE trcnam          ! Namelist read
19!  USE trcice_cfc      ! CFC      initialisation
20   USE trcice_pisces   ! PISCES   initialisation
21!  USE trcice_c14b     ! C14 bomb initialisation
22!  USE trcice_my_trc   ! MY_TRC   initialisation
23!  USE trcdta          ! initialisation form files
24!  USE daymod          ! calendar manager
25!  USE zpshde          ! partial step: hor. derivative   (zps_hde routine)
26!  USE prtctl_trc      ! Print control passive tracers (prt_ctl_trc_init routine)
27!  USE trcsub       ! variables to substep passive tracers
28!  USE in_out_manager 
29   
30   IMPLICIT NONE
31   PRIVATE
32   
33   PUBLIC   trc_ice_ini ! called by trc_init
34
35CONTAINS
36   
37   SUBROUTINE trc_ice_ini
38      !!---------------------------------------------------------------------
39      !!                     ***  ROUTINE trc_ice_ini ***
40      !!
41      !! ** Purpose :   Communication between TOP and sea ice
42      !!
43      !! ** Method  : -
44      !!           
45      !!---------------------------------------------------------------------
46      INTEGER ::   jk, jn, jl    ! dummy loop indices
47      !
48      IF(lwp) WRITE(numout,*)
49      IF(lwp) WRITE(numout,*) 'trc_ice_ini : Initialize sea ice tracer boundary condition'
50      IF(lwp) WRITE(numout,*) '~~~~~~~~~~~~~'
51
52      IF( nn_timing == 1 )  CALL timing_start('trc_ice_ini')
53
54      trc_i(:,:,:) = 0.0d0 ! by default
55      trc_o(:,:,:) = 0.0d0 ! by default
56
57      IF( lk_pisces  )       CALL trc_ice_ini_pisces       ! PISCES  bio-model
58      ! to be written
59!     IF( lk_cfc     )       CALL trc_ice_ini_cfc          ! CFC     tracers
60!     IF( lk_c14b    )       CALL trc_ice_ini_c14b         ! C14 bomb  tracer
61!     IF( lk_my_trc  )       CALL trc_ice_ini_my_trc       ! MY_TRC  tracers
62
63      IF( nn_timing == 1 )   CALL timing_stop('trc_ice_ini')
64      !
65   END SUBROUTINE trc_ice_ini
66
67#else
68   !!----------------------------------------------------------------------
69   !!  Empty module :                                     No passive tracer
70   !!----------------------------------------------------------------------
71CONTAINS
72   SUBROUTINE trc_ice_ini                   ! Dummy routine   
73   END SUBROUTINE trc_ice_ini
74#endif
75
76   !!======================================================================
77END MODULE trcice
Note: See TracBrowser for help on using the repository browser.