Changeset 1567 for trunk/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2009-07-31T16:39:55+02:00 (15 years ago)

Author:

ctlod

Message:

DIMG: remove kindic argument from dia_wri call subroutine, see ticket: #509 & #496

File:

• trunk/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/DIA/diawri.F90

@@ -528 +528 @@
 # endif
 
+#endif
+
    SUBROUTINE dia_wri_state( cdfile_name, kt )
       !!---------------------------------------------------------------------
@@ -651 +653 @@
       ! -----------------
       CALL histclo( id_i )
-#if ! defined key_iomput
+#if ! defined key_iomput && ! defined key_dimgout
       IF( ninist /= 1  ) THEN
          CALL histclo( nid_T )
@@ -661 +663 @@
 
    END SUBROUTINE dia_wri_state
-
-#endif
    !!======================================================================
 END MODULE diawri