125 |
do j = jmin,jmax |
do j = jmin,jmax |
126 |
do i = imin,imax |
do i = imin,imax |
127 |
c Zonal wind stress. |
c Zonal wind stress. |
128 |
if (ustress(i,j,bi,bj).gt.2.0D0) then |
if (ustress(i,j,bi,bj).gt.windstressmax) then |
129 |
ustress(i,j,bi,bj)=2.0D0 |
ustress(i,j,bi,bj)=windstressmax |
130 |
endif |
endif |
131 |
enddo |
enddo |
132 |
enddo |
enddo |
135 |
#endif |
#endif |
136 |
do j = jmin,jmax |
do j = jmin,jmax |
137 |
do i = imin,imax |
do i = imin,imax |
138 |
if (ustress(i,j,bi,bj).lt.-2.0D0) then |
if (ustress(i,j,bi,bj).lt.-windstressmax) then |
139 |
ustress(i,j,bi,bj)=-2.0D0 |
ustress(i,j,bi,bj)=-windstressmax |
140 |
endif |
endif |
141 |
enddo |
enddo |
142 |
enddo |
enddo |
159 |
do j = jmin,jmax |
do j = jmin,jmax |
160 |
do i = imin,imax |
do i = imin,imax |
161 |
c Meridional wind stress. |
c Meridional wind stress. |
162 |
if (vstress(i,j,bi,bj).gt.2.0D0) then |
if (vstress(i,j,bi,bj).gt.windstressmax) then |
163 |
vstress(i,j,bi,bj)=2.0D0 |
vstress(i,j,bi,bj)=windstressmax |
164 |
endif |
endif |
165 |
enddo |
enddo |
166 |
enddo |
enddo |
169 |
#endif |
#endif |
170 |
do j = jmin,jmax |
do j = jmin,jmax |
171 |
do i = imin,imax |
do i = imin,imax |
172 |
if (vstress(i,j,bi,bj).lt.-2.0D0) then |
if (vstress(i,j,bi,bj).lt.-windstressmax) then |
173 |
vstress(i,j,bi,bj)=-2.0D0 |
vstress(i,j,bi,bj)=-windstressmax |
174 |
endif |
endif |
175 |
enddo |
enddo |
176 |
enddo |
enddo |