/[MITgcm]/MITgcm/verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F
ViewVC logotype

Diff of /MITgcm/verification/halfpipe_streamice/code_ad/ctrl_map_gentim2d.F

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

revision 1.1 by heimbach, Fri Jan 30 21:04:45 2015 UTC revision 1.2 by heimbach, Fri Jan 30 21:45:13 2015 UTC
# Line 137  C Line 137  C
137       O      xx_gentim2d_loc,       O      xx_gentim2d_loc,
138       I      xx_gentim2d0(1-Olx,1-Oly,1,1,iarr),       I      xx_gentim2d0(1-Olx,1-Oly,1,1,iarr),
139       I      xx_gentim2d1(1-Olx,1-Oly,1,1,iarr),       I      xx_gentim2d1(1-Olx,1-Oly,1,1,iarr),
140       I      xx_gentim2d_dummy,       I      xx_gentim2d_dummy(iarr),
141       I      zeroRL, zeroRL,       I      zeroRL, zeroRL,
142       I      wgentim2d(1-Olx,1-Oly,1,1,iarr),       I      wgentim2d(1-Olx,1-Oly,1,1,iarr),
143       I      mytime, myiter, mythid )       I      mytime, myiter, mythid )
# Line 167  C Line 167  C
167    
168                  bdot_streamice(i,j,bi,bj) =                  bdot_streamice(i,j,bi,bj) =
169       &           bdot_streamice(i,j,bi,bj)+       &           bdot_streamice(i,j,bi,bj)+
170       &            xx_gentim2d(i,j,bi,bj)       &            xx_gentim2d(i,j,bi,bj,iarr)
171    
172                 endif                 endif
173            enddo            enddo
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22