/[MITgcm]/MITgcm/pkg/seaice/seaice_budget_ocean.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_budget_ocean.F

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

revision 1.2 by mlosch, Fri Dec 15 14:36:05 2006 UTC revision 1.3 by mlosch, Mon Apr 16 22:43:01 2007 UTC
# Line 8  CStartOfInterface Line 8  CStartOfInterface
8       I     UG,       I     UG,
9       U     TSURF,       U     TSURF,
10       O     netHeatFlux, SWHeatFlux,       O     netHeatFlux, SWHeatFlux,
11       I     bi, bj )       I     bi, bj, myThid )
12  C     /================================================================\  C     /================================================================\
13  C     | SUBROUTINE seaice_budget_ocean                                 |  C     | SUBROUTINE seaice_budget_ocean                                 |
14  C     | o Calculate surface heat fluxes over open ocean                |  C     | o Calculate surface heat fluxes over open ocean                |
# Line 34  C     INPUT: Line 34  C     INPUT:
34  C     UG      :: thermal wind of atmosphere  C     UG      :: thermal wind of atmosphere
35  C     TSURF   :: surface temperature of ocean in Kelvin  C     TSURF   :: surface temperature of ocean in Kelvin
36  C     bi,bj   :: loop indices  C     bi,bj   :: loop indices
37    C     myThid  :: Thread no. that called this routine.
38  C     OUTPUT:  C     OUTPUT:
39  C     netHeatFlux :: net surface heat flux over open water or under ice  C     netHeatFlux :: net surface heat flux over open water or under ice
40  C     SWHeatFlux  :: short wave heat flux over open water or under ice  C     SWHeatFlux  :: short wave heat flux over open water or under ice
# Line 41  C     SWHeatFlux  :: short wave heat flu Line 42  C     SWHeatFlux  :: short wave heat flu
42        _RL TSURF      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL TSURF      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
43        _RL netHeatFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL netHeatFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
44        _RL SWHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL SWHeatFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
45        INTEGER bi, bj        INTEGER bi, bj, myThid
46  CEndOfInterface  CEndOfInterface
47    
48  C     === Local variables ===  C     === Local variables ===
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22