/[MITgcm]/MITgcm/verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F
ViewVC logotype

Diff of /MITgcm/verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F

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

revision 1.6 by jmc, Tue Jan 27 15:38:07 2009 UTC revision 1.7 by jmc, Sun May 17 19:41:29 2009 UTC
# Line 274  C_EqCh: end Line 274  C_EqCh: end
274  C_EqCh: start  C_EqCh: start
275          IF (myIter.EQ.nIter0) THEN          IF (myIter.EQ.nIter0) THEN
276           WRITE(suff,'(I10.10)') myIter           WRITE(suff,'(I10.10)') myIter
277           CALL AIM_WRITE_LOCAL('aim_SST.',suff,1,sst1(1,myThid),           CALL AIM_WRITE_PHYS( 'aim_SST.', suff, 1,sst1,
278       &                                   bi,bj,1,myIter,myThid)       &                        1, bi, bj, 1, myIter, myThid )
279          ENDIF          ENDIF
280  C_EqCh: end  C_EqCh: end
281         ENDIF         ENDIF
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22