/[MITgcm]/MITgcm/pkg/fizhi/fizhi_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_read_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by molod, Thu Oct 7 03:20:56 2004 UTC revision 1.12 by edhill, Sun Oct 10 06:08:49 2004 UTC
# Line 28  C     == Global variables === Line 28  C     == Global variables ===
28  #include "fizhi_io_comms.h"  #include "fizhi_io_comms.h"
29  #include "EEPARAMS.h"  #include "EEPARAMS.h"
30  #include "PARAMS.h"  #include "PARAMS.h"
 #ifdef ALLOW_MNC  
 #include "MNC_PARAMS.h"  
 #endif  
31    
32  C     == Routine Arguments ==  C     == Routine Arguments ==
33  C     myIter  :: time-step number  C     myIter  :: time-step number
# Line 75  C       Read fields as consecutive recor Line 72  C       Read fields as consecutive recor
72         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavesw,16,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavesw,16,myThid)
73         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,temp,17,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,temp,17,myThid)
74    
75         do bj = 1,Nsy         do bj = 1,myByLo(myThid), myByHi(myThid)
76         do bi = 1,Nsx         do bi = 1,myBxLo(myThid), myBxHi(myThid)
77         do j = 1-OLy,sNy+OLy         do j = 1-OLy,sNy+OLy
78         do i = 1-OLx,sNx+OLx         do i = 1-OLx,sNx+OLx
79          raincon(i,j,bi,bj) = temp(i,j,1,bi,bj)          raincon(i,j,bi,bj) = temp(i,j,1,bi,bj)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22