& AtmDepths_ocn,
_RS AtmDepths_ocn (Nx_ocn,Ny_ocn)
AtmDepths_ocn(i,j)=1. _d 5 !ocean code checks for this
& AtmDepths_ocn )
_RL AtmDepths_ocn (Nx_ocn,Ny_ocn)
O AtmDepths_ocn)