Changeset 11654 for NEMO/branches/2019/ENHANCE-03_domcfg/src/iom_nf90.F90
- Timestamp:
- 2019-10-04T15:15:19+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/ENHANCE-03_domcfg/src/iom_nf90.F90
r10727 r11654 529 529 INTEGER :: idlv ! local variable 530 530 INTEGER :: idim3 ! id of the third dimension 531 ! 532 INTEGER :: nldi_save, nlei_save !:patch before we remove periodicity and close boundaries in output files 533 INTEGER :: nldj_save, nlej_save !: 531 534 !--------------------------------------------------------------------- 532 535 ! 533 536 clinfo = ' iom_nf90_rp0123d, file: '//TRIM(iom_file(kiomid)%name)//', var: '//TRIM(cdvar) 534 537 if90id = iom_file(kiomid)%nfid 538 ! 539 ! use patch to force the writing off periodicity and close boundaries 540 ! without this, issue in some model decomposition 541 ! seb: patch before we remove periodicity and close boundaries in output files 542 nldi_save = nldi ; nlei_save = nlei 543 nldj_save = nldj ; nlej_save = nlej 544 IF( nimpp == 1 ) nldi = 1 545 IF( nimpp + jpi - 1 == jpiglo ) nlei = jpi 546 IF( njmpp == 1 ) nldj = 1 547 IF( njmpp + jpj - 1 == jpjglo ) nlej = jpj 535 548 ! 536 549 ! define dimension variables if it is not already done … … 705 718 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' written ok' 706 719 ENDIF 720 ! 721 nldi = nldi_save ; nlei = nlei_save 722 nldj = nldj_save ; nlej = nlej_save 707 723 ! 708 724 END SUBROUTINE iom_nf90_rp0123d
Note: See TracChangeset
for help on using the changeset viewer.