Changeset 11654 for NEMO/branches/2019/ENHANCE-03_domcfg/src/iom.F90
- Timestamp:
- 2019-10-04T15:15:19+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/ENHANCE-03_domcfg/src/iom.F90
r11196 r11654 613 613 ! start halo size for x,y dimensions 614 614 ! end halo size for x,y dimensions 615 ! 616 INTEGER :: nldi_save, nlei_save !:patch before we remove periodicity and close boundaries in output files 617 INTEGER :: nldj_save, nlej_save !: 618 ! 615 619 !--------------------------------------------------------------------- 616 620 ! Initializations and control … … 619 623 clinfo = ' iom_open ~~~ ' 620 624 istop = nstop 625 626 ! use patch to force the writing off periodicity and close boundaries 627 ! without this, issue in some model decomposition 628 ! seb: patch before we remove periodicity and close boundaries in output files 629 nldi_save = nldi ; nlei_save = nlei 630 nldj_save = nldj ; nlej_save = nlej 631 IF( nimpp == 1 ) nldi = 1 632 IF( nimpp + jpi - 1 == jpiglo ) nlei = jpi 633 IF( njmpp == 1 ) nldj = 1 634 IF( njmpp + jpj - 1 == jpjglo ) nlej = jpj 635 621 636 ! if iom_open is called for the first time: initialize iom_file(:)%nfid to 0 622 637 ! (could be done when defining iom_file in f95 but not in f90) … … 743 758 CALL iom_nf90_open( clname, kiomid, llwrt, llok, idompar, kdlev = kdlev ) 744 759 ENDIF 760 761 nldi = nldi_save ; nlei = nlei_save 762 nldj = nldj_save ; nlej = nlej_save 745 763 ! 746 764 END SUBROUTINE iom_open
Note: See TracChangeset
for help on using the changeset viewer.