Skip to content
Snippets Groups Projects
Commit ed6bcf15 authored by ESCOBAR Juan's avatar ESCOBAR Juan
Browse files

Juan 12/11/2014: only update_halo if LX or LY

parent 5e270b75
No related branches found
No related tags found
No related merge requests found
......@@ -244,9 +244,11 @@ IF (LY) THEN
ENDIF
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
IF (LX .OR. LY) THEN
CALL ADD3DFIELD_ll(TZ_PSRC_ll,PSRC)
CALL UPDATE_HALO_ll(TZ_PSRC_ll,IERROR, HDIR=HDIR )
CALL CLEANLIST_ll(TZ_PSRC_ll)
ENDIF
IF (LX) THEN
IF (.NOT.GWEST) THEN
......
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