Changeset 268

Timestamp:

2005-09-08T16:09:46+02:00 (19 years ago)

Author:

opalod

Message:

nemo_v1_update_05:RB+OA: Update and rewritting of part of the TOP component

Location:

trunk/NEMO

Files:

• OPA_SRC/opa.F90 (modified) (2 diffs)
• OPA_SRC/step.F90 (modified) (2 diffs)
• TOP_SRC/trcctl.F90 (added)
• TOP_SRC/trcdia.F90 (added)
• TOP_SRC/trcdit.F90 (added)
• TOP_SRC/trcdta.F90 (added)
• TOP_SRC/trcdtr.F90 (added)
• TOP_SRC/trcini.F90 (added)
• TOP_SRC/trclec.F90 (added)
• TOP_SRC/trclsm.F90 (added)
• TOP_SRC/trcrst.F90 (added)
• TOP_SRC/trcrst_fdir.h90 (added)
• TOP_SRC/trcsms.F90 (added)

trunk/NEMO/OPA_SRC/opa.F90

@@ -50 +50 @@
    USE dyncor1d        ! Coriolis factor at T-point
    USE step1d          ! Time stepping loop for the 1D configuration
+
+   USE initrc          ! Initialization of the passive tracers
 
    IMPLICIT NONE
@@ -187 +189 @@
 
 #if defined key_passivetrc
-      CALL initrc                           ! Passive tracers
+      CALL ini_trc                           ! Passive tracers
 #endif
 

trunk/NEMO/OPA_SRC/step.F90

@@ -32 +32 @@
 
    USE trcstp          ! passive tracer time-stepping      (trc_stp routine)
+   USE trcdia          ! passive tracer diagnostics        (trc_dia routine)
+   USE trcrst          ! restart for passive tracers
 
    USE dynhpg          ! hydrostatic pressure grad.       (dyn_hpg routine)
@@ -279 +281 @@
       ! N.B. ua, va, ta, sa arrays are used as workspace in this section
       !-----------------------------------------------------------------------
-      IF( kstp == nit000 )   CALL trcdia( kstp, indic )     ! diagnostics init.
+      IF( kstp == nit000 )   CALL trc_dia( kstp, indic )     ! diagnostics init.
 
                              CALL trc_stp( kstp )           ! time-stepping
 
-                             CALL trcwri( kstp )            ! outputs
-
-                             CALL trcdia( kstp, indic )     ! diagnostics
+                             CALL trc_wri( kstp )            ! outputs
+
+                             CALL trc_dia( kstp, indic )     ! diagnostics
 #endif