Changeset 14720

Timestamp:

2021-04-16T15:44:59+02:00 (3 years ago)

Author:

jchanut

Message:

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

File:

• utils/tools/DOMAINcfg/src/agrif_user.F90 (modified) (4 diffs)

utils/tools/DOMAINcfg/src/agrif_user.F90

@@ -873 +873 @@
           ENDIF
       ELSE
-         e1t(i1:i2,j1:j2)=ptab/Agrif_rhoy()
+         e1t(i1:i2,j1:j2)=ptab/Agrif_Rhox()
       ENDIF
       !
@@ -911 +911 @@
           ENDIF
       ELSE
-         e1u(i1:i2,j1:j2)=ptab/Agrif_rhoy()
+         e1u(i1:i2,j1:j2)=ptab/Agrif_Rhox()
       ENDIF
       !
@@ -931 +931 @@
          ptab(i1:i2,j1:j2) = e1v(i1:i2,j1:j2)
       ELSE
-         e1v(i1:i2,j1:j2)=ptab/Agrif_rhoy()
+         e1v(i1:i2,j1:j2)=ptab/Agrif_Rhox()
       ENDIF
       !
@@ -951 +951 @@
          ptab(i1:i2,j1:j2) = e1f(i1:i2,j1:j2)
       ELSE
-         e1f(i1:i2,j1:j2)=ptab/Agrif_rhoy()
+         e1f(i1:i2,j1:j2)=ptab/Agrif_Rhox()
       ENDIF
       !