Changeset 763 for branches/dev_001_GM/NEMO/TOP_SRC/SMS/trp_trc.F90

Timestamp:

2007-12-13T14:52:50+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - Style only addition in TOP F90 h90 routines

File:

• branches/dev_001_GM/NEMO/TOP_SRC/SMS/trp_trc.F90 (modified) (1 diff)

branches/dev_001_GM/NEMO/TOP_SRC/SMS/trp_trc.F90

@@ -1 +1 @@
 MODULE trp_trc
+   !!======================================================================
+   !!                         ***  MODULE trp_trc  ***
+   !! TOP :   TOP parameters used in TRP
+   !!======================================================================
+   !! History :   1.0  !  2004-03 (C. Ethe) original code
+   !!----------------------------------------------------------------------
+   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 
+   !! $Id:$ 
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
+   !!----------------------------------------------------------------------
+#if defined key_passivetrc
+   !!----------------------------------------------------------------------
+   !!   'key_passivetrc'                                    Passive tracers
+   !!----------------------------------------------------------------------
 
-#if defined key_passivetrc
-   !!======================================================================
-   !! Module trp_trc
-   !!======================================================================
-   !!  TOP 1.0,  LOCEAN-IPSL (2005)
-   !! $Header$
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
+   !! passive tracers number
+   USE par_trc_trp , ONLY :   jptra    =>   jptra    !: number of passive tracers
+
+   !! passive tracers fields 
+   USE trc         , ONLY :   trai     =>   trai     !: initial total tracer
+   USE trc         , ONLY :   trb      =>   trb      !: tracer field (before)
+   USE trc         , ONLY :   tra      =>   tra      !: tracer field (now)
+   USE trc         , ONLY :   trn      =>   trn      !: tracer field (after)
+
+   !! time step
+   USE trc         , ONLY :   ndttrc   =>   ndttrc   !: frequency of step on passive tracers (NAMELIST)
+
+   !! non-centered advection scheme (smolarkiewicz)
+   USE trc         , ONLY :   rtrn     =>   rtrn     !: value for truncation (NAMELIST)
+   USE trc         , ONLY :   ctrcnm   =>   ctrcnm   !: value for truncation (NAMELIST)
+
+# if defined key_trc_diaadd
+   USE par_trc_trp , ONLY :   jpdia2d  =>  jpdia2d   !: number of 2D passive tracers diag
+   USE par_trc_trp , ONLY :   jpdia3d  =>  jpdia3d   !: number of 3D passive tracers diag
+   USE trc         , ONLY :   trc2d    =>   trc2d    !: additional 2D variable for ouputs
+   USE trc         , ONLY :   trc3d    =>   trc3d    !: additional 3D variable for ouputs
+# endif
+
+#else
    !!----------------------------------------------------------------------
-   !! passive tracers number
-   USE par_trc_trp , ONLY : &
-      jptra    =>   jptra       !!: number of passive tracers
-
-#if defined key_trc_diaadd
-   USE par_trc_trp , ONLY : &
-      jpdia2d  =>  jpdia2d , &  !!: number of passive tracers
-      jpdia3d  =>  jpdia3d
+   !!  Empty module :                                     No passive tracer
+   !!----------------------------------------------------------------------
 #endif
 
-   !! passive tracers fields 
-   USE trc , ONLY :  &
-      trai   =>   trai , &  !!: initial total tracer
-      trb    =>   trb  , &  !!: tracer field (before)
-      tra    =>   tra  , &  !!: tracer field (now)
-      trn    =>   trn       !!: tracer field (after)
-
-#if defined key_trc_diaadd
-   USE trc , ONLY :  &
-      trc2d   =>   trc2d , &  !!: additional 2D variable for ouputs
-      trc3d   =>   trc3d      !!: additional 3D variable for ouputs
-#endif
-   !! time step
-   USE trc , ONLY :  &
-      ndttrc =>   ndttrc    !!: frequency of step on passive tracers (NAMELIST)
-
-   !! non-centered advection scheme (smolarkiewicz)
-   USE trc , ONLY : &
-      rtrn   =>   rtrn      !!: value for truncation (NAMELIST)
-
-   USE trc , ONLY : &
-      ctrcnm   =>   ctrcnm      !!: value for truncation (NAMELIST)
-#else
    !!======================================================================
-   !!  Empty module : No passive tracer 
-   !!======================================================================
-#endif
-
 END MODULE trp_trc