Changeset 3318 for branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcbio.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/trcbio.F90 (modified) (5 diffs)

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

@@ -2 +2 @@
    !!======================================================================
    !!                         ***  MODULE trcbio  ***
-   !! TOP :   LOBSTER
+   !! TOP :   LOBSTER bio model
    !!======================================================================
-   !! History :    -   !  1999-07  (M. Levy) Original code
-   !!              -   !  2000-12  (E. Kestenare) assign a parameter to name individual tracers
-   !!              -   !  2001-03  (M. Levy)  LNO3 + dia2d 
-   !!             2.0  !  2007-12  (C. Deltel, G. Madec)  F90
+   !! History :  OPA  !  1999-07  (M. Levy) Original code
+   !!             -   !  2000-12  (E. Kestenare) assign a parameter to name individual tracers
+   !!             -   !  2001-03  (M. Levy)  LNO3 + dia2d 
+   !!   NEMO     2.0  !  2007-12  (C. Deltel, G. Madec)  F90
    !!----------------------------------------------------------------------
 #if defined key_lobster
@@ -13 +13 @@
    !!   'key_lobster'                                     LOBSTER bio-model
    !!----------------------------------------------------------------------
-   !!   trc_bio        :  
-   !!----------------------------------------------------------------------
-   USE oce_trc         !
-   USE trc             ! 
-   USE sms_lobster     ! 
-   USE lbclnk          ! 
-   USE prtctl_trc      ! Print control for debbuging
-   USE trdmod_oce
-   USE trdmod_trc
+   !!   trc_bio       :  
+   !!----------------------------------------------------------------------
+   USE oce_trc        !
+   USE trc            ! 
+   USE sms_lobster    ! 
+   USE lbclnk         ! 
+   USE prtctl_trc     ! Print control for debbuging
+   USE trd_oce        ! trends: ocean variables
+   USE trdmod_trc     ! trends: passive tracer variables
    USE iom
    
@@ -27 +27 @@
    PRIVATE
 
-   PUBLIC   trc_bio    ! called in ???
+   PUBLIC   trc_bio   ! called in ???
 
    !!* Substitution
@@ -36 +36 @@
    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
-
 CONTAINS
 
@@ -60 +59 @@
       !!              for passive tracers are saved for futher diagnostics.
       !!---------------------------------------------------------------------
-      !!
       INTEGER, INTENT( in ) ::   kt      ! ocean time-step index      
-      !!
+      !
       INTEGER  ::   ji, jj, jk, jl
       REAL(wp) ::   zdet, zzoo, zphy, zno3, znh4, zdom      ! now concentrations