INTERFACE:
subroutine copy_var(grid_scan,var) subroutine copy_var(grid_scan,inf,outf) IMPLICIT NONEDESCRIPTION:
Reads the relevant variables from the NetCDF file. Interpolates to the model grid if necessary. After a call to this routine updated versions of either variables used for calculating stresses and fluxes or directly the stresses/fluxes directly are available to do_meteo. INPUT PARAMETERS:
integer, intent(in) :: grid_scan REAL_4B, intent(in) :: inf(:,:)INPUT/OUTPUT PARAMETERS:
OUTPUT PARAMETERS:
REALTYPE, intent(out) :: outf(:,:)REVISION HISTORY:
See module for log.LOCAL VARIABLES:
integer :: i1,i2,istr,j1,j2,jstr integer :: i,j,err