Code: Select all
DO itrc=1,NBT
i=idbio(itrc)
WRITE (out,110) LtracerCLM(i,ng), 'LtracerCLM', &
& i, 'Processing climatology on tracer ', i, &
& TRIM(Vname(1,idTvar(i)))
END DO
WRITE (out,110)
should be
WRITE (out,100)