source: branches/2016/dev_r7012_ROBUST5_CNRS/NEMOGCM/NEMO/TOP_SRC/trcice.F90 @ 7041

Last change on this file since 7041 was 7041, checked in by cetlod, 4 years ago

ROBUST5_CNRS : implementation of part I of new TOP interface - 1st step -, see ticket #1782

File size: 3.0 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 trcice_cfc      ! CFC      initialisation
18   USE trcice_pisces   ! PISCES   initialisation
19   USE trcice_c14      ! C14 bomb initialisation
20   USE trcice_age      ! aGE initialisation
21   USE trcice_my_trc   ! MY_TRC   initialisation
22   
23   IMPLICIT NONE
24   PRIVATE
25   
26   PUBLIC   trc_ice_ini ! called by trc_nam
27
28CONTAINS
29   
30   SUBROUTINE trc_ice_ini
31      !!---------------------------------------------------------------------
32      !!                     ***  ROUTINE trc_ice_ini ***
33      !!
34      !! ** Purpose :   Initialization of the ice module for tracers
35      !!
36      !! ** Method  : -
37      !!           
38      !!---------------------------------------------------------------------
39      ! --- Variable declarations --- !
40
41      IF(lwp) THEN
42         WRITE(numout,*)
43         WRITE(numout,*) 'trc_ice_ini : Initialize sea ice tracer boundary condition'
44         WRITE(numout,*) '~~~~~~~~~~~~~'
45      ENDIF
46
47      IF( nn_timing == 1 )  CALL timing_start('trc_ice_ini')
48
49      !
50      trc_i(:,:,:) = 0.0d0 ! by default
51      trc_o(:,:,:) = 0.0d0 ! by default
52
53      IF ( nn_ice_tr == 1 ) THEN
54         IF( lk_pisces  )    CALL trc_ice_ini_pisces       ! PISCES  bio-model
55         IF( ll_cfc     )    CALL trc_ice_ini_cfc          ! CFC     tracers
56         IF( ln_c14     )    CALL trc_ice_ini_c14          ! C14     tracer
57         IF( ln_age     )    CALL trc_ice_ini_age          ! AGE     tracer
58         IF( lk_my_trc  )    CALL trc_ice_ini_my_trc       ! MY_TRC  tracers
59      ENDIF
60
61      IF( nn_timing == 1 )   CALL timing_stop('trc_ice_ini')
62      !
63   END SUBROUTINE trc_ice_ini
64
65#else
66   !!----------------------------------------------------------------------
67   !!  Empty module :                                     No passive tracer
68   !!----------------------------------------------------------------------
69CONTAINS
70   SUBROUTINE trc_ice_ini                   ! Dummy routine   
71   END SUBROUTINE trc_ice_ini
72#endif
73
74   !!======================================================================
75END MODULE trcice
Note: See TracBrowser for help on using the repository browser.