Changeset 911 for trunk/NEMO/OPA_SRC/OBC/obcdta.F90

Timestamp:

2008-04-28T11:31:32+02:00 (16 years ago)

Author:

ctlod

Message:

Implementation of the BDY package, see ticket: #126

File:

• trunk/NEMO/OPA_SRC/OBC/obcdta.F90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/OBC/obcdta.F90

@@ -8 +8 @@
    !!   8.5  !  02-10 (C. Talandier, A-M. Treguier) Free surface, F90
    !!   9.0  !  04-06 (F. Durand, A-M. Treguier) Netcdf BC files on input
+   !!    "   ! 07-07  (D. Storkey) Change to arguments for iom_gettime
    !!------------------------------------------------------------------------------
 #if defined key_obc
@@ -159 +160 @@
                IF ( lp_obc_east ) THEN
                   IF ( llnot_done ) THEN
-                     CALL iom_gettime ( id_e, TRIM(cl_vname), tcobc )
+                     CALL iom_gettime ( id_e, tcobc, TRIM(cl_vname) )
                      llnot_done = .FALSE.
                   ENDIF
@@ -166 +167 @@
                IF ( lp_obc_west ) THEN
                   IF ( llnot_done ) THEN
-                     CALL iom_gettime ( id_w, TRIM(cl_vname), tcobc )
+                     CALL iom_gettime ( id_w, tcobc, TRIM(cl_vname) )
                      llnot_done = .FALSE.
                  ENDIF
@@ -173 +174 @@
                IF ( lp_obc_north ) THEN
                   IF ( llnot_done ) THEN
-                     CALL iom_gettime ( id_n, TRIM(cl_vname), tcobc )
+                     CALL iom_gettime ( id_n, tcobc, TRIM(cl_vname) )
                      llnot_done = .FALSE.
                   ENDIF
@@ -180 +181 @@
                IF ( lp_obc_south ) THEN
                   IF ( llnot_done ) THEN
-                     CALL iom_gettime ( id_s, TRIM(cl_vname), tcobc )
+                     CALL iom_gettime ( id_s, tcobc, TRIM(cl_vname) )
                      llnot_done = .FALSE.
                   ENDIF