/[MITgcm]/MITgcm/pkg/autodiff/adecco_check_exp.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/adecco_check_exp.F

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

revision 1.4 by heimbach, Sat Jul 13 03:30:30 2002 UTC revision 1.5 by mlosch, Wed Sep 25 19:36:50 2002 UTC
# Line 208  c--     Surface heat flux: Line 208  c--     Surface heat flux:
208          DO j=1-oLy,sNy+oLy          DO j=1-oLy,sNy+oLy
209           DO i=1-oLx,sNx+oLx           DO i=1-oLx,sNx+oLx
210              tmpflux(i,j,bi,bj) =              tmpflux(i,j,bi,bj) =
211       &           - adQnet(i,j,bi,bj)*HeatCapacity_Cp*rhoNil*dRf(1)       &           - adQnet(i,j,bi,bj)*HeatCapacity_Cp*rhoConst*dRf(1)
212           ENDDO           ENDDO
213          ENDDO          ENDDO
214         ENDDO         ENDDO
# Line 242  c--     Surface zonal wind stress: Line 242  c--     Surface zonal wind stress:
242          DO j=1-oLy,sNy+oLy          DO j=1-oLy,sNy+oLy
243           DO i=1-oLx,sNx+oLx           DO i=1-oLx,sNx+oLx
244              tmpflux(i,j,bi,bj) =              tmpflux(i,j,bi,bj) =
245       &            -adfu(i,j,bi,bj)*rhoNil*dRf(1)/horiVertRatio       &            -adfu(i,j,bi,bj)*rhoConst*dRf(1)/horiVertRatio
246           ENDDO           ENDDO
247          ENDDO          ENDDO
248         ENDDO         ENDDO
# Line 259  c--     Surface meridional wind stress: Line 259  c--     Surface meridional wind stress:
259          DO j=1-oLy,sNy+oLy          DO j=1-oLy,sNy+oLy
260           DO i=1-oLx,sNx+oLx           DO i=1-oLx,sNx+oLx
261              tmpflux(i,j,bi,bj) =              tmpflux(i,j,bi,bj) =
262       &            -adfv(i,j,bi,bj)*rhoNil*dRf(1)/horiVertRatio       &            -adfv(i,j,bi,bj)*rhoConst*dRf(1)/horiVertRatio
263           ENDDO           ENDDO
264          ENDDO          ENDDO
265         ENDDO         ENDDO
# Line 352  c--     Short wave radiative flux: Line 352  c--     Short wave radiative flux:
352          DO j=1-oLy,sNy+oLy          DO j=1-oLy,sNy+oLy
353           DO i=1-oLx,sNx+oLx           DO i=1-oLx,sNx+oLx
354              tmpflux(i,j,bi,bj) =              tmpflux(i,j,bi,bj) =
355       &            -Qsw(i,j,bi,bj)*HeatCapacity_Cp*rhoNil*dRf(1)       &            -Qsw(i,j,bi,bj)*HeatCapacity_Cp*rhoConst*dRf(1)
356           ENDDO           ENDDO
357          ENDDO          ENDDO
358         ENDDO         ENDDO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22