Skip to content
Snippets Groups Projects
Commit 234ff326 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

super important typo that prevent output of Na00

parent 55e1bd34
No related branches found
No related tags found
No related merge requests found
......@@ -281,8 +281,8 @@ CONTAINS
jmaxe_dp = real(jmaxe,dp)
jmaxi_dp = real(jmaxi,dp)
! j=0 indices
DO ij = ijs_e,ij0_e; IF(jarray_e(ij) .EQ. 0) ij0_e = ij; END DO
DO ij = ijs_i,ij0_i; IF(jarray_i(ij) .EQ. 0) ij0_i = ij; END DO
DO ij = ijs_e,ije_e; IF(jarray_e(ij) .EQ. 0) ij0_e = ij; END DO
DO ij = ijs_i,ije_i; IF(jarray_i(ij) .EQ. 0) ij0_i = ij; END DO
END SUBROUTINE set_jgrid
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment