/[MITgcm]/MITgcm/pkg/ecco/ecco_check_exp.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/ecco_check_exp.F

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

revision 1.2 by heimbach, Mon Jul 30 20:40:10 2001 UTC revision 1.3 by mlosch, Wed Sep 25 19:36:50 2002 UTC
# Line 168  c--     Surface heat flux: Line 168  c--     Surface heat flux:
168          DO j=1-oLy,sNy+oLy          DO j=1-oLy,sNy+oLy
169           DO i=1-oLx,sNx+oLx           DO i=1-oLx,sNx+oLx
170              tmpflux(i,j,bi,bj) =              tmpflux(i,j,bi,bj) =
171       &           - Qnet(i,j,bi,bj)*HeatCapacity_Cp*rhoNil*dRf(1)       &           - Qnet(i,j,bi,bj)*HeatCapacity_Cp*rhoConst*dRf(1)
172           ENDDO           ENDDO
173          ENDDO          ENDDO
174         ENDDO         ENDDO
# Line 202  c--     Surface zonal wind stress: Line 202  c--     Surface zonal wind stress:
202          DO j=1-oLy,sNy+oLy          DO j=1-oLy,sNy+oLy
203           DO i=1-oLx,sNx+oLx           DO i=1-oLx,sNx+oLx
204              tmpflux(i,j,bi,bj) =              tmpflux(i,j,bi,bj) =
205       &            -fu(i,j,bi,bj)*rhoNil*dRf(1)/horiVertRatio       &            -fu(i,j,bi,bj)*rhoConst*dRf(1)/horiVertRatio
206           ENDDO           ENDDO
207          ENDDO          ENDDO
208         ENDDO         ENDDO
# Line 219  c--     Surface meridional wind stress: Line 219  c--     Surface meridional wind stress:
219          DO j=1-oLy,sNy+oLy          DO j=1-oLy,sNy+oLy
220           DO i=1-oLx,sNx+oLx           DO i=1-oLx,sNx+oLx
221              tmpflux(i,j,bi,bj) =              tmpflux(i,j,bi,bj) =
222       &            -fv(i,j,bi,bj)*rhoNil*dRf(1)/horiVertRatio       &            -fv(i,j,bi,bj)*rhoConst*dRf(1)/horiVertRatio
223           ENDDO           ENDDO
224          ENDDO          ENDDO
225         ENDDO         ENDDO
# Line 312  c--     Short wave radiative flux: Line 312  c--     Short wave radiative flux:
312          DO j=1-oLy,sNy+oLy          DO j=1-oLy,sNy+oLy
313           DO i=1-oLx,sNx+oLx           DO i=1-oLx,sNx+oLx
314              tmpflux(i,j,bi,bj) =              tmpflux(i,j,bi,bj) =
315       &            -Qsw(i,j,bi,bj)*HeatCapacity_Cp*rhoNil*dRf(1)       &            -Qsw(i,j,bi,bj)*HeatCapacity_Cp*rhoConst*dRf(1)
316           ENDDO           ENDDO
317          ENDDO          ENDDO
318         ENDDO         ENDDO
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22