Ignore:
Timestamp:
2021-04-16T15:44:59+02:00 (6 months ago)
Author:
jchanut
Message:

#2638, use i refinement factor in place of j to define e1x over child grids

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/DOMAINcfg/src/agrif_user.F90

    r14703 r14720  
    873873          ENDIF 
    874874      ELSE 
    875          e1t(i1:i2,j1:j2)=ptab/Agrif_rhoy() 
     875         e1t(i1:i2,j1:j2)=ptab/Agrif_Rhox() 
    876876      ENDIF 
    877877      ! 
     
    911911          ENDIF 
    912912      ELSE 
    913          e1u(i1:i2,j1:j2)=ptab/Agrif_rhoy() 
     913         e1u(i1:i2,j1:j2)=ptab/Agrif_Rhox() 
    914914      ENDIF 
    915915      ! 
     
    931931         ptab(i1:i2,j1:j2) = e1v(i1:i2,j1:j2) 
    932932      ELSE 
    933          e1v(i1:i2,j1:j2)=ptab/Agrif_rhoy() 
     933         e1v(i1:i2,j1:j2)=ptab/Agrif_Rhox() 
    934934      ENDIF 
    935935      ! 
     
    951951         ptab(i1:i2,j1:j2) = e1f(i1:i2,j1:j2) 
    952952      ELSE 
    953          e1f(i1:i2,j1:j2)=ptab/Agrif_rhoy() 
     953         e1f(i1:i2,j1:j2)=ptab/Agrif_Rhox() 
    954954      ENDIF 
    955955      ! 
Note: See TracChangeset for help on using the changeset viewer.