Release of JAGURS-D_V0503(src)

The mod_bank.90 is updated because some user environment could not compile JAGURS-D_V0502.Revised.

src/mod_bank.f90

@@ -104,10 +104,12 @@ subroutine read_bank_file(dg)
 #endif
          allocate(x(num_lines))
          allocate(y(num_lines))
+#ifdef CARTESIAN
 #ifdef BANKFILEREAL
          allocate(xin(num_lines))
          allocate(yin(num_lines))
 #endif
+#endif
 #ifdef OLDFORMAT
          allocate(val(num_lines))
 #else
@@ -198,8 +200,8 @@ subroutine read_bank_file(dg)
 #endif
             y(n) = ny - y(n) + 1
 #else
-            x(n) = floor((xin(n) - mlon0)/dh) + 1
-            y(n) = floor((yin(n) - mlat0)/dh) + 1
+            x(n) = floor((xin(n) - mlon0 + 0.5d0*dh)/dh) + 1
+            y(n) = floor((yin(n) - mlat0 + 0.5d0*dh)/dh) + 1
 #endif
 
 #ifdef MPI
@@ -276,10 +278,12 @@ subroutine read_bank_file(dg)
 #endif
          deallocate(x)
          deallocate(y)
+#ifdef CARTESIAN
 #ifdef BANKFILEREAL
          deallocate(xin)
          deallocate(yin)
 #endif
+#endif
 #ifdef OLDFORMAT
          deallocate(val)
 #else