Changeset 1359 for trunk/NEMO/LIM_SRC_2

Timestamp:

2009-03-31T14:36:28+02:00 (15 years ago)

Author:

smasson

Message:

first implementation of iom_put, see ticket:387

File:

• trunk/NEMO/LIM_SRC_2/limwri_2.F90 (modified) (4 diffs)

trunk/NEMO/LIM_SRC_2/limwri_2.F90

@@ -27 +27 @@
    USE dianam          ! build name of file (routine)
    USE in_out_manager
+   USE iom
    USE ioipsl
 
@@ -93 +94 @@
       !!-------------------------------------------------------------------
 
+      CALL iom_setkt( kt + nn_fsbc - 1 )
       !                                          !--------------------!
       IF( kt == nit000 ) THEN                    !   Initialisation   !
@@ -179 +181 @@
          
          IF( nc(jf) == 1 )   CALL histwrite( nice, nam(jf), niter, zfield, ndim, ndex51 )
+         CALL iom_put( nam(jf), zfield )
          
       END DO
@@ -184 +187 @@
       IF( ( nn_fsbc * niter ) >= nitend )   CALL histclo( nice ) 
       !
+      CALL iom_setkt( kt )
+
    END SUBROUTINE lim_wri_2