Changeset 945 for trunk/NEMO/TOP_SRC/trclsm.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/trclsm.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/trclsm.F90

@@ -1 +1 @@
 MODULE trclsm
-   !!===============================================================
-   !!
-   !!                       *** MODULE trclsm ****
-   !!
-   !!  READS specific NAMELIST for sms terms
-   !!
-   !!=================================================================
-   !!  TOP 1.0,  LOCEAN-IPSL (2005) 
-   !! $Header$ 
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
-   !!-----------------------------------------------------------------
-#if defined key_passivetrc
-   !!-------------------------------------------------------------
-   !! * Modules used
-   !! ==============
-   USE oce_trc
-   USE trc
-   USE sms
-
+   !!======================================================================
+   !!                         ***  MODULE trclsm  ***
+   !! TOP :   reads specific namelist for passive tracer sms terms
+   !!======================================================================
+   !! History :   1.0  !  2004-03 (C. Ethe) Original code
+   !!             2.0  !  2007-12  (C. Ethe, G. Madec) re-writing
+   !!----------------------------------------------------------------------
+#if defined key_top
+   !!----------------------------------------------------------------------
+   !!   'key_top'                                                TOP models
+   !!----------------------------------------------------------------------
+   !!   trc_lsm   : reads specific namelist for sms terms
+   !!----------------------------------------------------------------------
+   USE par_trc         ! TOP parameters
+   USE trclsm_cfc      ! CFC     initialisation
+   USE trclsm_lobster  ! LOBSTER initialisation
+   USE trclsm_pisces   ! PISCES  initialisation
+   USE trclsm_my_trc   ! MY_TRC  initialisation
+   USE in_out_manager  ! I/O manager
 
    IMPLICIT NONE                             
    PRIVATE
 
-   !! * Accessibility
-   PUBLIC trc_lsm
-
-
-#if defined key_trc_lobster1
-   !!----------------------------------------------------------------------
-   !!   'key_trc_lobster1'                        LOBSTER1 biological model  
-   !!----------------------------------------------------------------------
-#  include "trclsm.lobster1.h90"
-
-#elif defined key_trc_pisces
-   !!----------------------------------------------------------------------
-   !!   'key_trc_pisces'                            PISCES biological model                  
-   !!----------------------------------------------------------------------
-#  include "trclsm.pisces.h90"
-
-#elif defined key_cfc
-   !!----------------------------------------------------------------------
-   !!   'key_cfc  '                                          CFC model                  
-   !!----------------------------------------------------------------------
-#  include "trclsm.cfc.h90"
+   PUBLIC   trc_lsm      ! called in initrc.F90
 
    !!----------------------------------------------------------------------
-   !!   Default option                               
+   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007) 
+   !! $Id$ 
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-# endif
-
-#else
 
 CONTAINS
 
    SUBROUTINE trc_lsm
-      !!================
-      !! no passive tracers
-   END  SUBROUTINE  trc_lsm
+      !!----------------------------------------------------------------------
+      !!                     ***  trc_lsm  ***  
+      !!
+      !! ** Purpose :   read TOP namelists for the different tracers models
+      !!
+      !! ** Method  :   call the namelist read of each defined tracer
+      !!             model (LOBSTER, PISCES, CFC, MY_TRC)
+      !!----------------------------------------------------------------------
+      !
+      IF(lwp) WRITE(numout,*)
+      IF(lwp) WRITE(numout,*) 'trc_lsm : read namelist of the TOP models'
+      IF(lwp) WRITE(numout,*) '~~~~~~~'
+      !
+      IF( lk_lobster ) THEN   ;   CALL trc_lsm_lobster      ! LOBSTER bio-model
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          LOBSTER not used'
+      ENDIF
 
+      IF( lk_pisces  ) THEN   ;   CALL trc_lsm_pisces      ! PISCES  bio-model
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          PISCES not used'
+      ENDIF
+
+      IF( lk_cfc     ) THEN   ;   CALL trc_lsm_cfc         ! CFC     tracers
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          CFC not used'
+      ENDIF
+
+      IF( lk_my_trc  ) THEN   ;   CALL trc_lsm_my_trc      ! MY_TRC  tracers
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used'
+      ENDIF
+      !
+   END SUBROUTINE trc_lsm
+
+#else
+   !!----------------------------------------------------------------------
+   !!  Dummy module :                                     No passive tracer
+   !!----------------------------------------------------------------------
+CONTAINS
+   SUBROUTINE trc_lsm                      ! Empty routine
+   END  SUBROUTINE trc_lsm
 #endif  
 
+   !!======================================================================
 END MODULE trclsm