Skip to content
Snippets Groups Projects
Commit ddbbd513 authored by Christian.Ethe's avatar Christian.Ethe
Browse files

Minor bugfix

parent 4330cd82
No related branches found
No related tags found
No related merge requests found
......@@ -1344,6 +1344,7 @@ CONTAINS
ELSE
CALL ctl_stop( 'iom_get_123d: should have been an impossible case...' )
ENDIF
ishape(1:2) = (/ Ni_0, Nj_0 /) ! update and force ishape to match the inner domain
IF( irankpv == 3 ) ctmp1 = TRIM(ctmp1)//',:'
ctmp1 = TRIM(ctmp1)//')'
ENDIF
......
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