Changeset 1457 for trunk/NEMO/OFF_SRC

Timestamp:

2009-05-23T10:16:38+02:00 (15 years ago)

Author:

cetlod

Message:

distribution of iom_put in TOP routines, see ticket:437

Location:

trunk/NEMO/OFF_SRC

Files:

• IOM/iom.F90 (modified) (1 diff)
• opa.F90 (modified) (1 diff)
• step.F90 (modified) (2 diffs)

trunk/NEMO/OFF_SRC/IOM/iom.F90

@@ -33 +33 @@
    PUBLIC   !   must be public to be able to access iom_def through iom
    
+#if defined key_iomput
+   LOGICAL, PUBLIC, PARAMETER ::   lk_iomput = .TRUE.       !: iom_put flag
+#else
+   LOGICAL, PUBLIC, PARAMETER ::   lk_iomput = .FALSE.       !: iom_put flag
+#endif
+
    PUBLIC iom_init, iom_open, iom_close, iom_setkt, iom_varid, iom_get, iom_gettime, iom_rstput, iom_put
 

trunk/NEMO/OFF_SRC/opa.F90

@@ -225 +225 @@
       
       CALL dta_dyn( nit000 )                 ! Initialization for the dynamics
-     
+      
       CALL trc_ini                           ! Passive tracers
-
-      CALL day_init                          ! Calendar
       !                                     ! Ocean physics
       CALL tra_qsr_init                         ! Solar radiation penetration

trunk/NEMO/OFF_SRC/step.F90

@@ -22 +22 @@
    USE trcrst          ! restart for passive tracers
    USE stpctl          ! time stepping control            (stp_ctl routine)
+   USE iom
 
    IMPLICIT NONE
@@ -70 +71 @@
       !! * Arguments
       INTEGER, INTENT( in ) ::   kstp   ! ocean time-step index
-
-      !! * local declarations
-      INTEGER ::   indic    ! error indicator if < 0
       !! ---------------------------------------------------------------------
-
-      indic = 1                    ! reset to no error condition
 
       CALL day( kstp )             ! Calendar
 
-      CALL dta_dyn( kstp )          ! Interpolation of the dynamical fields
+      IF( lk_iomput ) CALL iom_setkt( kstp )       ! say to iom that we are at time step kstp
 
-      CALL trc_stp( kstp, indic)           ! time-stepping
+      CALL dta_dyn( kstp )         ! Interpolation of the dynamical fields
+
+      CALL trc_stp( kstp )         ! time-stepping