Changeset 11654


Ignore:
Timestamp:
2019-10-04T15:15:19+02:00 (13 months 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)

Location:
NEMO/branches/2019/ENHANCE-03_domcfg/src
Files:
2 edited

Legend:

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

    r11196 r11654  
    613613      ! start halo size for x,y dimensions 
    614614      ! 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      ! 
    615619      !--------------------------------------------------------------------- 
    616620      ! Initializations and control 
     
    619623      clinfo = '                    iom_open ~~~  ' 
    620624      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 
    621636      ! if iom_open is called for the first time: initialize iom_file(:)%nfid to 0 
    622637      ! (could be done when defining iom_file in f95 but not in f90) 
     
    743758         CALL iom_nf90_open( clname, kiomid, llwrt, llok, idompar, kdlev = kdlev ) 
    744759      ENDIF 
     760 
     761      nldi = nldi_save   ;   nlei = nlei_save 
     762      nldj = nldj_save   ;   nlej = nlej_save 
    745763      ! 
    746764   END SUBROUTINE iom_open 
  • 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.