Changeset 945 for trunk/NEMO/TOP_SRC/trcini.F90

Timestamp:

2008-05-14T18:14:53+02:00 (16 years ago)

Author:

cetlod

Message:

Update modules for new version of TOP model, see ticket 144

File:

• trunk/NEMO/TOP_SRC/trcini.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/trcini.F90

@@ -1 +1 @@
 MODULE trcini
-   !!==========================================================================
-   !!                       *** MODULE trcini ***  
-   !! Ocean passive tracers:  Manage the passive tracer initialization 
-   !!=========================================================================   
-#if defined key_passivetrc
+   !!======================================================================
+   !!                         ***  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
+   !!             2.0  !  2007-12  (C. Ethe, G. Madec) re-writing
    !!----------------------------------------------------------------------
-   !!   trc_ini : Initialization for passive tracer
+   !!   trc_ini :   Initialization for passive tracer
    !!----------------------------------------------------------------------
-   !!----------------------------------------------------------------------
-   !!  TOP 1.0,  LOCEAN-IPSL (2005) 
-   !! $Header$ 
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
-   !!----------------------------------------------------------------------
-   !! * Modules used
-   USE oce_trc
-   USE trc
-   USE sms
-   USE lib_mpp
-   USE lbclnk
+   USE par_trc         ! TOP parameters
+   USE trcini_cfc      ! CFC     initialisation
+   USE trcini_lobster  ! LOBSTER initialisation
+   USE trcini_pisces   ! PISCES  initialisation
+   USE trcini_my_trc   ! MY_TRC  initialisation
+   USE in_out_manager  ! I/O manager
 
    IMPLICIT NONE
    PRIVATE
 
-   !! * Accessibility
-   PUBLIC trc_ini
+   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)
    !!----------------------------------------------------------------------
 
@@ -52 +32 @@
 
    SUBROUTINE trc_ini
-      !!---------------------------------------------------------------------
+      !!-------------------------------------------------------------------
       !!                    ***  ROUTINE trc_ini  ***
       !!              
-      !! ** Purpose : Initialization for passive tracer
-      !!              for restart or not
+      !! ** Purpose :   Initialization of passive tracer to zero
       !!
-      !! History :
-      !!        !  00-04  O. Aumont, M.A. Foujols HAMOCC3 and P3ZD
-      !!   8.5  !  05-03  O.Aumont and A.El Moussaoui  F90
-      !!   9.0  !  05-10  C. Ethe  Modularity
-      !!----------------------------------------------------------------------
-      !! * local declarations
-      INTEGER ::                   & 
-         ji ,jj ,jk ,jn, jl        ! dummy loop indices  
-      !!---------------------------------------------------------------------
-
-
-      !! 1. 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      
-
-      IF( lwp ) THEN
-         WRITE(numout,*) ' '
-         WRITE(numout,*) ' trcini: generic initialisation done '
-         WRITE(numout,*) ' '
+      !! ** Method  :   call the initialisation of each defined tracer
+      !!             model (LOBSTER, PISCES, CFC, MY_TRC)
+      !!-------------------------------------------------------------------
+      !
+      IF(lwp) WRITE(numout,*)
+      IF(lwp) WRITE(numout,*) 'trc_ini : initial set up of the tracer models'
+      IF(lwp) WRITE(numout,*) '~~~~~~~'
+      !
+      IF( lk_lobster ) THEN   ;   CALL trc_ini_lobster      ! LOBSTER bio-model
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used'
       ENDIF
 
+      IF( lk_pisces  ) THEN   ;   CALL trc_ini_pisces       ! PISCES  bio-model
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          PISCES not used'
+      ENDIF
+
+      IF( lk_cfc     ) THEN   ;   CALL trc_ini_cfc          ! CFC     tracers
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          CFC not used'
+      ENDIF
+
+      IF( lk_my_trc  ) THEN   ;   CALL trc_ini_my_trc       ! MY_TRC  tracers
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used'
+      ENDIF
+      !
    END SUBROUTINE trc_ini
-
-#endif
-
-#else
-   !!----------------------------------------------------------------------
-   !!   Dummy module :                      NO passive tracer
-   !!----------------------------------------------------------------------
-CONTAINS
-   SUBROUTINE trc_ini              ! Empty routine
-
-   END SUBROUTINE trc_ini
-#endif
 
    !!======================================================================