Changeset 7025 for branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/iom.f90

Timestamp:

2016-10-13T11:08:38+02:00 (8 years ago)

Author:

jpaul

Message:

see ticket #1781

File:

• branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/iom.f90 (modified) (2 diffs)

branches/2016/dev_r6999_CONFIGMAN_1/NEMOGCM/TOOLS/SIREN/src/iom.f90

@@ -157 +157 @@
    !> @author J.Paul
    !> @date November, 2013 - Initial Version
-   !
+   !> @date October, 2016
+   !> - open cdf4 file as cdf
+   !>
    !> @param[inout] td_file file structure
    !-------------------------------------------------------------------
@@ -172 +174 @@
       SELECT CASE(TRIM(ADJUSTL(fct_lower(td_file%c_type))))
 
-         CASE('cdf')
+         CASE('cdf','cdf4')
             CALL iom_cdf_open(td_file)
          CASE('dimg')