/[MITgcm]/MITgcm/model/src/calc_surf_dr.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_surf_dr.F

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

revision 1.11 by jmc, Thu Jul 13 20:48:47 2006 UTC revision 1.12 by jmc, Thu Oct 19 00:15:10 2006 UTC
# Line 192  C   ==> no need for applying the mask he Line 192  C   ==> no need for applying the mask he
192  C and with "partial thin wall" ==> mask could be applied in S/R UPDATE_SURF_DR  C and with "partial thin wall" ==> mask could be applied in S/R UPDATE_SURF_DR
193  C-----  C-----
194    
195        WRITE(suff,'(I10.10)') myIter  c     IF ( myIter.GE.0 ) THEN
196  c     CALL WRITE_FLD_XY_RS('hFac_surfC.',suff,hFac_surfC,  c       WRITE(suff,'(I10.10)') myIter
197  c    &                     myIter,myThid)                      c       CALL WRITE_FLD_XY_RS( 'hFac_surfC.', suff, hFac_surfC,
198    c    &                         myIter, myThid )                    
199    c     ENDIF
200    
201  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
202  #endif /* NONLIN_FRSURF */  #endif /* NONLIN_FRSURF */
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22