!*******************************************************************************
!$RCSfile$
!$Revision$
!$Date$
!*******************************************************************************
INTEGER FUNCTION SWIMread3DClimo( TimePrj,TimeFld,Src,TimeOut,MeanFld,VarFld,BLFld )

RETURN
END
