Changeset 1291 for trunk/NEMO/OFF_SRC/step.F90

Timestamp:

2009-02-03T15:22:22+01:00 (15 years ago)

Author:

cetlod

Message:

update modules, see ticket:320

File:

• trunk/NEMO/OFF_SRC/step.F90 (modified) (2 diffs)

trunk/NEMO/OFF_SRC/step.F90

@@ -81 +81 @@
       CALL dta_dyn( kstp )          ! Interpolation of the dynamical fields
 
-#if defined key_top
-      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-      ! Passive Tracer Model
-      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
-      ! N.B. ua, va, ta, sa arrays are used as workspace in this section
-      !-----------------------------------------------------------------------
+      CALL trc_stp( kstp, indic)           ! time-stepping
 
-                             CALL trc_stp( kstp, indic)           ! time-stepping
-
-
-#endif
 
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
@@ -97 +88 @@
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
       !                                            ! Time loop: control and print
-                       CALL stp_ctl( kstp )
+       CALL stp_ctl( kstp )