/[MITgcm]/MITgcm/pkg/dic/dic_fields_load.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_fields_load.F

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

revision 1.20 by stephd, Mon Dec 3 21:54:14 2007 UTC revision 1.21 by dfer, Wed Dec 5 16:52:32 2007 UTC
# Line 131  C      data for the period ahead and the Line 131  C      data for the period ahead and the
131         ENDIF         ENDIF
132  #endif  #endif
133    
 c       _EXCH_XY_R4(wspeed0, myThid )  
 c       _EXCH_XY_R4(wspeed1, myThid )  
 c       _EXCH_XY_R4(atmosp0, myThid )  
 c       _EXCH_XY_R4(atmosp1, myThid )  
 c       _EXCH_XY_R4(silica0, myThid )  
 c       _EXCH_XY_R4(silica1, myThid )  
 c       _EXCH_XY_R4(ice0, myThid )  
 c       _EXCH_XY_R4(ice1, myThid )  
 c#ifdef READ_PAR  
 c       _EXCH_XY_R4(par0, myThid )  
 c       _EXCH_XY_R4(par1, myThid )  
 c#endif  
 c#ifdef ALLOW_FE  
 c       _EXCH_XY_R4(feinput0, myThid )  
 c       _EXCH_XY_R4(feinput1, myThid )  
 c#endif  
   
134  C  C
135         ENDIF         ENDIF
136    
# Line 221  c          pisvel(i,j,bi,bj)  =0.337*win Line 204  c          pisvel(i,j,bi,bj)  =0.337*win
204          ENDDO          ENDDO
205         ENDDO         ENDDO
206    
207  C endif for gchem_periodicForcing  C endif for gchem_ForcingCycle
208        ENDIF        ENDIF
209    
210         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
# Line 232  C endif for gchem_periodicForcing Line 215  C endif for gchem_periodicForcing
215               FIce(i,j,bi,bj) = iceMask(i,j,bi,bj)               FIce(i,j,bi,bj) = iceMask(i,j,bi,bj)
216              ENDDO              ENDDO
217             ENDDO             ENDDO
218  #endif  #elif ALLOW_SEAICE
 #ifdef ALLOW_SEAICE  
219             DO j=1-Oly,sNy+Oly             DO j=1-Oly,sNy+Oly
220              DO i=1-Olx,sNx+Olx              DO i=1-Olx,sNx+Olx
221               FIce(i,j,bi,bj) = AREA(i,j,1,bi,bj)               FIce(i,j,bi,bj) = AREA(i,j,1,bi,bj)
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22