New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 9540 for branches/2017/dev_merge_2017/NEMOGCM/NEMO – NEMO

Ignore:
Timestamp:
2018-05-03T14:28:28+02:00 (6 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:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r9536 r9540  
    837837      INTEGER              , INTENT(in   )           ::   kiomid   ! file Identifier 
    838838      CHARACTER(len=*)     , INTENT(in   )           ::   cdvar    ! name of the variable 
    839       INTEGER, DIMENSION(:), INTENT(  out), OPTIONAL ::   kdimsz   ! size of the dimensions 
     839      INTEGER, DIMENSION(:), INTENT(  out), OPTIONAL ::   kdimsz   ! size of each dimension 
    840840      INTEGER,               INTENT(  out), OPTIONAL ::   kndims   ! size of the dimensions 
    841841      LOGICAL              , INTENT(in   ), OPTIONAL ::   ldstop   ! stop if looking for non-existing variable (default = .TRUE.) 
     
    882882               IF( PRESENT(kdimsz) ) THEN  
    883883                  i_nvd = iom_file(kiomid)%ndims(iiv) 
    884                   IF( i_nvd == size(kdimsz) ) THEN 
    885                      kdimsz(:) = iom_file(kiomid)%dimsz(1:i_nvd,iiv) 
     884                  IF( i_nvd <= size(kdimsz) ) THEN 
     885                     kdimsz(1:i_nvd) = iom_file(kiomid)%dimsz(1:i_nvd,iiv) 
    886886                  ELSE 
    887887                     WRITE(ctmp1,*) i_nvd, size(kdimsz) 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/IOM/iom_nf90.F90

    r9457 r9540  
    253253         ! return the simension size 
    254254         IF( PRESENT(kdimsz) ) THEN  
    255             IF( i_nvd == SIZE(kdimsz) ) THEN 
    256                kdimsz(:) = iom_file(kiomid)%dimsz(1:i_nvd,kiv) 
     255            IF( i_nvd <= SIZE(kdimsz) ) THEN 
     256               kdimsz(1:i_nvd) = iom_file(kiomid)%dimsz(1:i_nvd,kiv) 
    257257            ELSE 
    258258               WRITE(ctmp1,*) i_nvd, SIZE(kdimsz) 
Note: See TracChangeset for help on using the changeset viewer.