Changeset 3318 for branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcexp.F90

Timestamp:

2012-02-25T16:50:01+01:00 (12 years ago)

Author:

gm

Message:

Ediag branche: #927 split TRA/DYN trd computation

File:

• branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcexp.F90 (modified) (4 diffs)

branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcexp.F90

@@ -4 +4 @@
    !! TOP :   PISCES Compute loss of organic matter in the sediments
    !!======================================================================
-   !! History :    -   !  1999    (O. Aumont, C. Le Quere)  original code
+   !! History :   OPA  !  1999    (O. Aumont, C. Le Quere)  original code
    !!              -   !  2001-05 (O. Aumont, E. Kestenare) add sediment computations
-   !!             1.0  !  2005-06 (A.-S. Kremeur) new temporal integration for sedpoc
+   !!   NEMO      1.0  !  2005-06 (A.-S. Kremeur) new temporal integration for sedpoc
    !!             2.0  !  2007-12  (C. Deltel, G. Madec)  F90
    !!----------------------------------------------------------------------
@@ -21 +21 @@
    USE trcnam_trp
    USE prtctl_trc      ! Print control for debbuging
-   USE trdmod_oce
-   USE trdmod_trc
+   USE trd_oce         ! trends: ocean variables
+   USE trdmod_trc      ! trends: passive tracer variables
    USE iom
 
@@ -37 +37 @@
    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-
 CONTAINS
 
@@ -53 +52 @@
       !!              COLUMN BELOW THE SURFACE LAYER.
       !!---------------------------------------------------------------------
-      !!
       INTEGER, INTENT( in ) ::   kt      ! ocean time-step index      
-      !!
+      !
       INTEGER  ::   ji, jj, jk, jl, ikt, ierr
       REAL(wp) ::   zgeolpoc, zfact, zwork, ze3t, zsedpocd