Changeset 335 for trunk/NEMO/TOP_SRC/trcsms.F90

Timestamp:

2005-11-14T13:08:42+01:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_023 : CE + RB + CT : new evolution of modules

File:

• trunk/NEMO/TOP_SRC/trcsms.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/trcsms.F90

@@ -8 +8 @@
    !!===========================================================================================
    !!  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 trcfreons
 
-      !! * Modules used
-      !! ==============
-      USE oce_trc
-      USE trc
-
-      IMPLICIT NONE
-      PRIVATE
+   IMPLICIT NONE
+   PRIVATE
 
    !! * Accessibility
    PUBLIC trc_sms
 
-#if defined key_passivetrc
-
 CONTAINS
 
-SUBROUTINE trc_sms( kt )
-   !!===========================================================================================
-   !!
-   !!                       ROUTINE trcsms
-   !!                     *****************
-   !!
-   !!  PURPOSE :
-   !!  ---------
-   !!          time loop of opa for passive tracer
-   !!
-   !!   METHOD :
-   !!   -------
-   !!      compute the well/spring evolution
-   !!
-   !!   INPUT :
-   !!   -----
-   !!      argument
-   !!              ktask           : task identificator
-   !!              kt              : time step
-   !!      COMMON
-   !!            all the COMMON defined in opa
-   !!
-   !!
-   !!   OUTPUT :        : no
-   !!   ------
-   !!
-   !!   WORKSPACE :
-   !!   ---------
-   !!
-   !!   EXTERNAL :
-   !!   --------
-   !!      trcbio, trcsed, trcopt for NPZD or LOBSTER1 models
-   !!
-   !!      h3cprg for HAMOC3 and P3ZD models
-   !!
-   !!
-   !!   History:
-   !!   --------
-   !!      original  : 96-11
-   !!      additions : 99-07 (M. Levy)
-   !!                  04-00 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD
-   !!                  12-00 (O. Aumont, E. Kestenare) add trcexp for instantaneous export 
-   !!   05-03 (O. Aumont and A. El Moussaoui) F90
-   !! -------------------------------------------------------------------------------------
+   SUBROUTINE trc_sms( kt )
+      !!===========================================================================================
+      !!
+      !!                       ROUTINE trcsms
+      !!                     *****************
+      !!
+      !!  PURPOSE :
+      !!  ---------
+      !!          time loop of opa for passive tracer
+      !!
+      !!   METHOD :
+      !!   -------
+      !!      compute the well/spring evolution
+      !!
+      !!   INPUT :
+      !!   -----
+      !!      argument
+      !!              ktask           : task identificator
+      !!              kt              : time step
+      !!      COMMON
+      !!            all the COMMON defined in opa
+      !!
+      !!
+      !!   OUTPUT :        : no
+      !!   ------
+      !!
+      !!   WORKSPACE :
+      !!   ---------
+      !!
+      !!   EXTERNAL :
+      !!   --------
+      !!      trcbio, trcsed, trcopt for NPZD or LOBSTER1 models
+      !!
+      !!      h3cprg for HAMOC3 and P3ZD models
+      !!
+      !!
+      !!   History:
+      !!   --------
+      !!      original  : 96-11
+      !!      additions : 99-07 (M. Levy)
+      !!                  04-00 (O. Aumont, M.A. Foujols) HAMOCC3 and P3ZD
+      !!                  12-00 (O. Aumont, E. Kestenare) add trcexp for instantaneous export 
+      !!   05-03 (O. Aumont and A. El Moussaoui) F90
+      !! -------------------------------------------------------------------------------------
 
-   !! * Arguments
-   !! -----------
+      !! * Arguments
+      !! -----------
       INTEGER, INTENT( in ) ::   kt      ! ocean time-step index      
 
-   !! this ROUTINE is called only every ndttrc time step
-   !! --------------------------------------------------
+      !! this ROUTINE is called only every ndttrc time step
+      !! --------------------------------------------------
 
       IF ( MOD(kt,ndttrc) /= 0) RETURN
 
-   !! this first routines are parallelized on vertical slab
-   !! ------------------------------------------------------
+      !! this first routines are parallelized on vertical slab
+      !! ------------------------------------------------------
 
-#if defined key_trc_npzd || defined key_trc_lobster1
+#if defined key_trc_lobster1
 
-   !! tracers: optical model
-   !! ----------------------
+      !! tracers: optical model
+      !! ----------------------
 
-       CALL trcopt( kt)
+      CALL trcopt( kt)
 
-   !! tracers: biological model
-   !! -------------------------
+      !! tracers: biological model
+      !! -------------------------
 
-       CALL trcbio( kt)
+      CALL trcbio( kt)
 
-   !! tracers: sedimentation model
-   !! ----------------------------
+      !! tracers: sedimentation model
+      !! ----------------------------
 
-       CALL trcsed(kt)
-       CALL trcexp
+      CALL trcsed(kt)
+      CALL trcexp(kt)
 
-#elif defined key_trc_hamocc3
 
-   !! h3cprg: main PROGRAM for HAMOCC3 or P3ZD models
-   !! -----------------------------------------------
-       CALL h3cprg(kt)
 
 #elif defined key_trc_pisces
 
-   !! p4zprg: main PROGRAM for PISCES 
-   !! -------------------------------
-       CALL p4zprg(kt)
-#else
+      !! p4zprg: main PROGRAM for PISCES 
+      !! -------------------------------
+      CALL p4zprg(kt)
 
-    !! SMS to DO
+      !! SMS to DO
 
-#if defined key_cfc
+#elif defined key_cfc
 
-   !! CFC's code taken from K. Rodgers
+      !! CFC's code taken from K. Rodgers
 
-   !! This part is still experimental
-   !! -------------------------------
+      !! This part is still experimental
+      !! -------------------------------
 
-       CALL trcfreons(kt)
-
-#elif defined key_gosac
-
-   !! C14 tracer modeled according to the OCMIP protocol
-   !! This part has not been really tested in this configuration
-
-   !! Compute the alkalinity
-
-          CALL alkal(kt)
-
-   !! Compute the radioactive decay
-
-          CALL decay
-
-   !! Tracers: surface flux
-
-          CALL dicgasflux(kt)
+      CALL trc_freons(kt)
 
 #endif
 
-#endif
 
-#if defined key_trc_age
 
-   !! Age Tracer 
-   
-          CALL trcage(kt)
-#endif
-
-END SUBROUTINE trc_sms
+   END SUBROUTINE trc_sms
 
 #else
+   !!======================================================================
+   !!  Empty module : No passive tracer
+   !!======================================================================
+CONTAINS
 
-SUBROUTINE trc_sms( kt )
+   SUBROUTINE trc_sms( kt )
 
-! no passive tracers
+      ! no passive tracers
       INTEGER, INTENT( in ) ::   kt
       WRITE(*,*) 'trc_sms: You should not have seen this print! error?', kt
-END SUBROUTINE trc_sms
+   END SUBROUTINE trc_sms
 
 #endif