& TauX_atm, TauY_atm, EvMPr_atm,
_RL EvMPr_atm (Nx_atm,Ny_atm)
EvMPr_atm (i,j) = 0. _d 0
O EvMPr_atm )
I Nx_atm, Ny_atm, EvMPr_atm, Nx_ocn, Ny_ocn,