source: branches/dev_001_GM/NEMO/TOP_SRC/trcini.F90 @ 763

MODULE trcini
   !!======================================================================
   !!                         ***  MODULE trcini  ***
   !! TOP :   Manage the passive tracer initialization
   !!======================================================================
   !! History :    -   !  2000-04  (O. Aumont, M.A. Foujols)  original code
   !!             1.0  !  2005-03  (O. Aumont, A. El Moussaoui) F90
   !!              -   !  2005-10  (C. Ethe) Module
   !!----------------------------------------------------------------------
#if defined key_passivetrc
   !!----------------------------------------------------------------------
   !!   'key_passivetrc'                                    Passive tracers
   !!----------------------------------------------------------------------
   !!   trc_ini :   Initialization for passive tracer
   !!----------------------------------------------------------------------
   USE oce_trc
   USE trc
   USE sms
   USE lib_mpp
   USE lbclnk

   IMPLICIT NONE
   PRIVATE

   PUBLIC   trc_ini   ! called by ???

# if defined key_trc_lobster1
   !!----------------------------------------------------------------------
   !!   'key_trc_lobster1'                        LOBSTER1 biological model  
   !!----------------------------------------------------------------------
#  include "trcini.lobster1.h90"

# elif defined key_trc_pisces
   !!----------------------------------------------------------------------
   !!   'key_trc_pisces'                            PISCES biological model                  
   !!----------------------------------------------------------------------
#  include "trcini.pisces.h90"

# elif defined key_cfc
   !!----------------------------------------------------------------------
   !!   'key_cfc  '                                          CFC model                  
   !!----------------------------------------------------------------------
#  include "trcini.cfc.h90"

# else
   !!----------------------------------------------------------------------
   !!   Default option                               
   !!----------------------------------------------------------------------
   !!----------------------------------------------------------------------
   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 
   !! $Header:$ 
   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
   !!----------------------------------------------------------------------

CONTAINS

   SUBROUTINE trc_ini
      !!-------------------------------------------------------------------
      !!                    ***  ROUTINE trc_ini  ***
      !!              
      !! ** Purpose :   Initialization of all passive tracer to zero
      !!              (default case)
      !!-------------------------------------------------------------------
      INTEGER ::   ji ,jj ,jk ,jn, jl        ! dummy loop indices  
      !!-------------------------------------------------------------------

      IF(lwp) WRITE(numout,*)
      IF(lwp) WRITE(numout,*) 'trc_ini : initial set up of the passive tracers'
      IF(lwp) WRITE(numout,*) '~~~~~~~'

      ! initialization of passives tracers field
      ! ----------------------------------------
      DO jn = 1, jptra
         trn(:,:,:,jn) = 0.e0
         tra(:,:,:,jn) = 0.e0
      END DO

#  if defined key_trc_diaadd
      ! initialization of output 2d and 3d arrays
      DO jn = 1, jpdia2d
         trc2d(:,:,jn) = 0.e0
      END DO
      DO jn = 1, jpdia3d
         trc3d(:,:,:,jn) = 0.e0
      END DO
#  endif

#  if defined key_trc_diabio
      ! initialization of biological trends
      DO jn = 1, jpdiabio
         trbio(:,:,:,jn) = 0.e0
      END DO
#  endif

#  if defined key_trc_diatrd
      ! initialization of tracer trends
      DO jl = 1, jpdiatrc
         DO jn = 1, jptra
            IF( luttrd(jn) )   trtrd(:,:,:,ikeep(jn),jl) = 0.e0
         END DO
      END DO
#  endif      
      !
   END SUBROUTINE trc_ini

# endif

#else
   !!----------------------------------------------------------------------
   !!   Dummy module :                      NO passive tracer
   !!----------------------------------------------------------------------
CONTAINS
   SUBROUTINE trc_ini              ! Empty routine
   END SUBROUTINE trc_ini
#endif

   !!======================================================================
END MODULE trcini