/[MITgcm]/MITgcm/pkg/thsice/thsice_main.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_main.F

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

revision 1.4 by jmc, Mon Jan 31 19:37:06 2005 UTC revision 1.5 by jmc, Fri Feb 11 19:33:59 2005 UTC
# Line 59  C     === Local variables === Line 59  C     === Local variables ===
59  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
60    
61        IF ( stressReduction.GT. 0. _d 0 ) THEN        IF ( stressReduction.GT. 0. _d 0 ) THEN
62    C-     needs new Ice Fraction in halo region to apply wind-stress reduction
63         iMin = 1-Olx         iMin = 1-Olx
64         iMax = sNx+Olx-1         iMax = sNx+Olx-1
65         jMin = 1-Oly         jMin = 1-Oly
66         jMax = sNy+Oly-1         jMax = sNy+Oly-1
67    #ifdef ATMOSPHERIC_LOADING
68          ELSEIF ( useRealFreshWaterFlux ) THEN
69    C-     needs sea-ice loading in part of the halo regions for grad.Phi0surf
70    C      to be valid at the boundaries ( d/dx 1:sNx+1 ; d/dy 1:sNy+1 )
71           iMin = 0
72           iMax = sNx+1
73           jMin = 0
74           jMax = sNy+1
75    #endif /* ATMOSPHERIC_LOADING */
76        ELSE        ELSE
77         iMin = 1         iMin = 1
78         iMax = sNx         iMax = sNx
# Line 166  C--  end bi,bj loop Line 176  C--  end bi,bj loop
176         ENDDO         ENDDO
177        ENDDO        ENDDO
178    
179    #ifdef ATMOSPHERIC_LOADING
180    c     IF (useRealFreshWaterFlux) _EXCH_XY_RS(sIceLoad, myThid)
181    #endif
182    
183  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
184  #endif  /*ALLOW_THSICE*/  #endif  /*ALLOW_THSICE*/
185    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22