/[MITgcm]/MITgcm/pkg/timeave/timeave_surf_flux.F
ViewVC logotype

Diff of /MITgcm/pkg/timeave/timeave_surf_flux.F

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

revision 1.1 by jmc, Fri Dec 5 02:33:56 2003 UTC revision 1.2 by jmc, Sun Jul 18 01:16:36 2004 UTC
# Line 75  C     tFlux (=Heat flux [W/m2], positive Line 75  C     tFlux (=Heat flux [W/m2], positive
75  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
76       &    -Qsw(i,j,bi,bj)+       &    -Qsw(i,j,bi,bj)+
77  #endif  #endif
78       &    (surfaceTendencyT(i,j,bi,bj)+surfaceTendencyTice(I,J,bi,bj))       &    (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj))
79       &    *HeatCapacity_Cp*recip_horiVertRatio*rhoConst       &    *HeatCapacity_Cp*recip_horiVertRatio*rhoConst
      &    *drF(k)*hFacC(i,j,k,bi,bj)  
80          ENDDO          ENDDO
81         ENDDO         ENDDO
82  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
# Line 99  C     sFlux (=salt flux [psu.kg/m2/s], p Line 98  C     sFlux (=salt flux [psu.kg/m2/s], p
98         DO j=1,sNy         DO j=1,sNy
99          DO i=1,sNx          DO i=1,sNx
100           tmpFld(i,j)=           tmpFld(i,j)=
101       &    surfaceTendencyS(i,j,bi,bj)*       &    surfaceForcingS(i,j,bi,bj)*
102       &    recip_horiVertRatio*rhoConst*drF(k)*hFacC(i,j,k,bi,bj)       &    recip_horiVertRatio*rhoConst
103          ENDDO          ENDDO
104         ENDDO         ENDDO
105  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22