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

Timestamp:

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

Author:

opalod

Message:

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

File:

• trunk/NEMO/TOP_SRC/trcdia.F90 (modified) (6 diffs)

trunk/NEMO/TOP_SRC/trcdia.F90

@@ -7 +7 @@
    !!==========================================================================
    !!  TOP 1.0,  LOCEAN-IPSL (2005)
-   !! $Header$
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
    !!----------------------------------------------------------------------
-      !!----------------------------------------------------------------------
-      !! * Modules used
-      !! ==============
+#if defined key_passivetrc
+   !!----------------------------------------------------------------------
+   !! * Modules used
+ 
    USE trcdit
 
@@ -25 +24 @@
 CONTAINS
 
-SUBROUTINE trc_dia(kt,kindic)  
-   !!===========================================================================================
-   !!
-   !!                       ROUTINE trcdii_wr
-   !!===========================================================================================
+   SUBROUTINE trc_dia(kt,kindic)  
+      !!===========================================================================================
+      !!
+      !!                       ROUTINE trcdii_wr
+      !!===========================================================================================
 
-       INTEGER, INTENT( in ) :: kt, kindic
+      INTEGER, INTENT( in ) :: kt, kindic
 
-   ! outputs for tracer concentration
-   ! -------------------------------- 
+      ! outputs for tracer concentration
+      ! -------------------------------- 
 
       CALL trcdit_wr(kt,kindic)
@@ -40 +39 @@
 #if defined key_trc_diatrd
 
-   ! outputs for dynamical trends
-   ! ----------------------------
+      ! outputs for dynamical trends
+      ! ----------------------------
 
       CALL trcdid_wr(kt,kindic)
@@ -48 +47 @@
 #if defined key_trc_diaadd
 
-   ! outputs for additional arrays
-   ! -----------------------------
+      ! outputs for additional arrays
+      ! -----------------------------
 
       CALL trcdii_wr(kt,kindic)
@@ -56 +55 @@
 #if defined key_trc_diabio
 
-   ! outputs for biological trends
-   ! -----------------------------
+      ! outputs for biological trends
+      ! -----------------------------
 
       CALL trcdib_wr(kt,kindic)
@@ -63 +62 @@
 #endif
 
-      END SUBROUTINE trc_dia
+   END SUBROUTINE trc_dia
 
-END MODULE trcdia 
+#else
+   !!======================================================================
+   !!  Empty module : No passive tracer
+   !!======================================================================
+CONTAINS
+   SUBROUTINE trc_dia
+      
+   END SUBROUTINE trc_dia   
+#endif
+
+END MODULE trcdia