Fortran compiler problem?

DO L = LBB,IGENRL1(NLEV)
if(L==-1) print*, K,L
HP=(FUZ(L,K)-BED3D(K,1))
HP=MAX(0.0,MIN(HPWAL,H1-HP,HP))/H1
EML=PFLW1(VKA)H1HP*SQRT(MAX(0.0,(1.-HP)))
EEU3D(L,K)=PFLW2(AZZ)EML**2PEP3D(K,L)**0.5+PFLW1(VSC)
ENDDO

Problem:
The DO variable LBB>=1, so the “if” statement is useless, and the code runs fine.
Without this line the code crashes, however.

Hi Jia-olemiss,

Sounds like an optimization issue, though, we’ll need a reproducing example to tell what’s wrong. If you can’t create a small example to post, can you send the full source to PGI Customer Support (trs@pgroup.com).

Thanks,
Mat

The code is large. The test case data + the code folder is about 250mb.
Do you have a secure way to transfer files?

You can let me know via my email: jia@ncche.olemiss.edu

I will have to describe the procedure to reproduce the error, if you need.

Hi Jia-olemiss,

I sent a note to our Customer Support ask that they send you instructions on accessing our FTP server.

  • Mat