A compilation error on the IBM was resolved by reversing the order of a
code block in regrid_3d.F90, lines 88-106, so that the namelist material
precedes the initilization of communications modules. The corrected
code block follows:


! ----------------------------------------------------------------------
! namelist input
! ----------------------------------------------------------------------

namelist /regrid3d_nml/ filein, fileout, grid_name, src_field_name,
scale_factor, num_nbrs, num_bins, max_dist

filein = 'input'  ! input file containing fields to be interpolated
fileout = 'output'   ! output file containing interpolated field
src_field_name = 'data' ! name of input field in input file
grid_name  = 'grid_descriptor' ! input grid descriptor file
num_nbrs = 10


! ----------------------------------------------------------------------
!  Initialize communication modules
! ----------------------------------------------------------------------
call mpp_init
call mpp_io_init
call mpp_domains_init


=====================================================================
 International Arctic Research Center, University of Alaska, Fairbanks
 903 Koyukuk Drive, Fairbanks, Alaska 99775-7340  
---------------------------------------------------------------------
fax  : (907) 474-2643    
tele : (907) 474-5729
email: [EMAIL PROTECTED] 
web  : http://www.frontier.iarc.uaf.edu/~hsimmons



-------------------------------------------------------
This sf.net email is sponsored by: viaVerio will pay you up to
$1,000 for every account that you consolidate with us.
http://ad.doubleclick.net/clk;4749864;7604308;v?
http://www.viaverio.com/consolidator/osdn.cfm
_______________________________________________
FMS-mom4 mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fms-mom4

Reply via email to