Changeset 771 for branches/dev_001_GM/NEMO/TOP_SRC/trcstp.F90

Timestamp:

2007-12-17T11:51:41+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - small error corrections

File:

• branches/dev_001_GM/NEMO/TOP_SRC/trcstp.F90 (modified) (3 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/trcstp.F90

@@ -2 +2 @@
    !!======================================================================
    !!                       ***  MODULE trcstp  ***
-   !! Time-stepping    : time loop of opa for passive tracer
+   !! TOP :   time stepping of TOP models (passive tracers)
    !!======================================================================
+   !! History :   1.0  !  2004-03 (C. Ethe) Original code
+   !!----------------------------------------------------------------------
 #if defined key_passivetrc
    !!----------------------------------------------------------------------
-   !!   trc_stp      : passive tracer system time-stepping
+   !!   'key_passivetrc'                                         TOP models
    !!----------------------------------------------------------------------
-   !! * Modules used
-   USE oce_trc          ! ocean dynamics and active tracers variables
-   USE trc              ! ocean passive tracers variables 
-   USE trctrp           ! passive tracers transport
-   USE trcsms           ! passive tracers sources and sinks
-   USE prtctl_trc       ! Print control for debbuging
-   USE trcdia
-   USE trcdit
-   USE trcrst
+   !!   trc_stp       : passive tracer system time-stepping
+   !!----------------------------------------------------------------------
+   USE oce_trc        ! ocean dynamics and active tracers variables
+   USE trc            ! ocean passive tracers variables 
+   USE trctrp         ! passive tracers transport
+   USE trcsms         ! passive tracers sources and sinks
+   USE prtctl_trc     ! Print control for debbuging
+   USE trcdia         ! passive tracer diagnostics
+   USE trcdit         ! ???
+   USE trcrst         ! ???
 
    IMPLICIT NONE
    PRIVATE
 
-   !! * Routine accessibility
-   PUBLIC trc_stp           ! called by step
+   PUBLIC   trc_stp   ! called in step.F90 module
+
    !!----------------------------------------------------------------------
-   !!   TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
-   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
+   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005) 
+   !! $Id$ 
+   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
 
@@ -32 +35 @@
 
    SUBROUTINE trc_stp( kt, kindic )
-      !!-------------------------------------------------------------------
+      !!----------------------------------------------------------------------
       !!                     ***  ROUTINE trc_stp  ***
       !!                      
-      !! ** Purpose : Time loop of opa for passive tracer
+      !! ** Purpose :   Time loop of TOP passive tracer
       !! 
-      !! ** Method  : 
-      !!              Compute the passive tracers trends 
-      !!              Update the passive tracers
-      !!
-      !! History :
-      !!   9.0  !  04-03  (C. Ethe)  Original
-      !!-------------------------------------------------------------------
-      !! * Arguments
-      INTEGER, INTENT( in ) ::  kt  ! ocean time-step index
-      INTEGER, INTENT( in ) ::  kindic
+      !! ** Method  :   Compute the passive tracers trends 
+      !!                Update the passive tracers
+      !!----------------------------------------------------------------------
+      INTEGER, INTENT( in ) ::   kt       ! ocean time-step index
+      INTEGER, INTENT( in ) ::   kindic   ! ???
       CHARACTER (len=25) :: charout
+      !!----------------------------------------------------------------------
 
-      ! this ROUTINE is called only every ndttrc time step
-      IF( MOD( kt , ndttrc ) /= 0 ) RETURN
+      IF( MOD( kt, ndttrc ) /= 0 )   RETURN            ! routine called only every ndttrc time step
 
-      CALL trc_rst_opn( kt )      ! Open tracer restart file 
-
-       ! tracers: sink and source 
       IF(ln_ctl) THEN
          WRITE(charout,FMT="('kt =', I4,'  d/m/y =',I2,I2,I4)") kt, nday, nmonth, nyear
@@ -60 +55 @@
       ENDIF
 
-      CALL trc_sms( kt )
+                       CALL trc_rst_opn( kt )          ! Open tracer restart file 
 
-      IF(ln_ctl)   THEN  ! print mean trends (used for debugging)
-         WRITE(charout, FMT="('SMS')")
-         CALL prt_ctl_trc_info(charout)
-         CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm)
-      ENDIF
+                       CALL trc_sms( kt )              ! sink and source of passive tracers
 
-      ! transport of passive tracers
-      CALL trc_trp( kt )
+                       CALL trc_trp( kt )              ! transport of passive tracers
 
-      IF(ln_ctl)   THEN  ! print mean trends (used for debugging)
-         WRITE(charout, FMT="('TRP')")
-         CALL prt_ctl_trc_info(charout)
-         CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm)
-      ENDIF
+      IF( lrst_trc )   CALL trc_rst_wri( kt )          ! write tracer restart file
 
-      IF( lrst_trc ) CALL trc_rst_wri( kt )  ! write tracer restart file
-
-      CALL trc_dia( kt, kindic )     ! diagnostics
-
-
+                       CALL trc_dia( kt, kindic )      ! diagnostics
+      !
    END SUBROUTINE trc_stp
 
 #else
    !!----------------------------------------------------------------------
-   !!   Default key                                     NO passive tracers
+   !!   Dummy module                                          No TOP models
    !!----------------------------------------------------------------------
 CONTAINS