Changeset 9540

Timestamp:

2018-05-03T14:28:28+02:00 (5 years ago)

Author:

clem

Message:

debug the dimension read for sea ice when using BDY

Location:

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/IOM

Files:

• iom.F90 (modified) (2 diffs)
• iom_nf90.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -837 +837 @@
       INTEGER              , INTENT(in   )           ::   kiomid   ! file Identifier
       CHARACTER(len=*)     , INTENT(in   )           ::   cdvar    ! name of the variable
-      INTEGER, DIMENSION(:), INTENT(  out), OPTIONAL ::   kdimsz   ! size of the dimensions
+      INTEGER, DIMENSION(:), INTENT(  out), OPTIONAL ::   kdimsz   ! size of each dimension
       INTEGER,               INTENT(  out), OPTIONAL ::   kndims   ! size of the dimensions
       LOGICAL              , INTENT(in   ), OPTIONAL ::   ldstop   ! stop if looking for non-existing variable (default = .TRUE.)
@@ -882 +882 @@
                IF( PRESENT(kdimsz) ) THEN 
                   i_nvd = iom_file(kiomid)%ndims(iiv)
-                  IF( i_nvd == size(kdimsz) ) THEN
-                     kdimsz(:) = iom_file(kiomid)%dimsz(1:i_nvd,iiv)
+                  IF( i_nvd <= size(kdimsz) ) THEN
+                     kdimsz(1:i_nvd) = iom_file(kiomid)%dimsz(1:i_nvd,iiv)
                   ELSE
                      WRITE(ctmp1,*) i_nvd, size(kdimsz)

branches/2017/dev_merge_2017/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)