#include "ctrparam.h" subroutine rd_ocean4atmrst #include "BD2G04.COM" #include "AGRID.COM" rewind 505 read (505),ODATA,GDATA print *,' Ocean data for atmospheric model restart are read' rewind 505 return end