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