Changeset 765 for branches/dev_001_GM/NEMO/TOP_SRC/trp_trc.F90

Timestamp:

2007-12-14T08:29:53+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - create 1 parameter module by tracers (CFC, LOBSTER, PISCES..) - never compiled

File:

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

branches/dev_001_GM/NEMO/TOP_SRC/trp_trc.F90

@@ -16 +16 @@
 
    !! passive tracers number
-   USE par_trc_trp , ONLY :   jptra    =>   jptra    !: number of passive tracers
+   USE par_trc, 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)
+   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)
+   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)
+   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
+   USE par_trc, ONLY :   jpdia2d  =>  jpdia2d   !: number of 2D passive tracers diag
+   USE par_trc, 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