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 11654 for NEMO/branches/2019/ENHANCE-03_domcfg/src/iom_nf90.F90 – NEMO

Ignore:
Timestamp:
2019-10-04T15:15:19+02:00 (4 years ago)
Author:
mathiot
Message:

ENHANCE-03_domcfg: forced the tools to write data over the EW overlap region. Issue in some eORCA1 decomposition without (ticket #2143)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/ENHANCE-03_domcfg/src/iom_nf90.F90

    r10727 r11654  
    529529      INTEGER               :: idlv                 ! local variable 
    530530      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    !: 
    531534      !--------------------------------------------------------------------- 
    532535      ! 
    533536      clinfo = '          iom_nf90_rp0123d, file: '//TRIM(iom_file(kiomid)%name)//', var: '//TRIM(cdvar) 
    534537      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 
    535548      ! 
    536549      ! define dimension variables if it is not already done 
     
    705718         IF(lwp) WRITE(numout,*) TRIM(clinfo)//' written ok' 
    706719      ENDIF 
     720      ! 
     721      nldi = nldi_save   ;   nlei = nlei_save 
     722      nldj = nldj_save   ;   nlej = nlej_save 
    707723      !      
    708724   END SUBROUTINE iom_nf90_rp0123d 
Note: See TracChangeset for help on using the changeset viewer.