--- MITgcm/pkg/fizhi/fizhi_read_pickup.F 2004/10/07 03:20:56 1.10 +++ MITgcm/pkg/fizhi/fizhi_read_pickup.F 2004/10/10 06:08:49 1.12 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/fizhi/fizhi_read_pickup.F,v 1.10 2004/10/07 03:20:56 molod Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/fizhi/fizhi_read_pickup.F,v 1.12 2004/10/10 06:08:49 edhill Exp $ C $Name: $ #include "FIZHI_OPTIONS.h" @@ -28,9 +28,6 @@ #include "fizhi_io_comms.h" #include "EEPARAMS.h" #include "PARAMS.h" -#ifdef ALLOW_MNC -#include "MNC_PARAMS.h" -#endif C == Routine Arguments == C myIter :: time-step number @@ -75,8 +72,8 @@ CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavesw,16,myThid) CALL MDSREADFIELD(fn,prec,'RL',Nrphys,temp,17,myThid) - do bj = 1,Nsy - do bi = 1,Nsx + do bj = 1,myByLo(myThid), myByHi(myThid) + do bi = 1,myBxLo(myThid), myBxHi(myThid) do j = 1-OLy,sNy+OLy do i = 1-OLx,sNx+OLx raincon(i,j,bi,bj) = temp(i,j,1,bi,bj)