Changeset 9969 for branches/UKMO/dev_merge_2017_CICE_interface/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

Timestamp:

2018-07-19T10:07:31+02:00 (6 years ago)

Author:

timgraham

Message:

Picked all the changes in IOM from the trunk as it was crashing in calls to XIOS.
Added/corrected allocate calls in sbc_ice.F90 for CICE case.

File:

• branches/UKMO/dev_merge_2017_CICE_interface/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90 (modified) (1 diff)

branches/UKMO/dev_merge_2017_CICE_interface/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

@@ -253 +253 @@
          ! return the simension size
          IF( PRESENT(kdimsz) ) THEN 
-            IF( i_nvd == SIZE(kdimsz) ) THEN
-               kdimsz(:) = iom_file(kiomid)%dimsz(1:i_nvd,kiv)
+            IF( i_nvd <= SIZE(kdimsz) ) THEN
+               kdimsz(1:i_nvd) = iom_file(kiomid)%dimsz(1:i_nvd,kiv)
             ELSE
                WRITE(ctmp1,*) i_nvd, SIZE(kdimsz)