source: branches/NERC/dev_r5518_GO6_CO2_cmip/NEMOGCM/NEMO/TOP_SRC/trcice.F90

Last change on this file was 5385, checked in by cetlod, 5 years ago

merge 2015/dev_r5204_CNRS_PISCES_dcy branch into the trunk, see ticket #1532

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