/[MITgcm]/MITgcm/pkg/thsice/THSICE_VARS.h
ViewVC logotype

Diff of /MITgcm/pkg/thsice/THSICE_VARS.h

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

revision 1.6 by jmc, Sun May 14 14:06:13 2006 UTC revision 1.9 by heimbach, Mon Apr 16 22:38:24 2007 UTC
# Line 39  C   sHeating :: surf heating left to mel Line 39  C   sHeating :: surf heating left to mel
39  C   flxCndBt :: heat flux conducted through the ice to bottom surface  C   flxCndBt :: heat flux conducted through the ice to bottom surface
40  C   snowPrc  :: snow precipitation                        [kg/m2/s]  C   snowPrc  :: snow precipitation                        [kg/m2/s]
41  C   siceAlb  :: area weighted sea-ice albedo           [0-1]  C   siceAlb  :: area weighted sea-ice albedo           [0-1]
42  C   dFdT     :: heat deriveative for coupled model  C atmospheric fluxes (change along the time-stepping):
43    C   icFlxSW  :: short-wave heat flux (+=down) over sea-ice
44    C               (downward SW / net SW @ surface / net SW below sea-ice)
45    C   icFlxAtm :: Atmospheric surf. heat flux over sea-ice [W/m2] (+=down)
46    C               (over sea-ice only / weighted by ice-fraction)
47    C   icFrwAtm :: fresh-water flux (E-P) from the atmosphere [kg/m2/s] (+=up)
48    C               ( ice Evap only / ice E-P / ice - ocean weighted E-P )
49  C   oceQnet  :: net heat flux  to the ocean         (+=down) [W/m2]  C   oceQnet  :: net heat flux  to the ocean         (+=down) [W/m2]
50  C   oceQsw   :: net short-wave that enter the ocean (+=down) [W/m2]  C   oceQsw   :: net short-wave that enter the ocean (+=down) [W/m2]
51  C   oceFWfx  :: net fresh water flux to the ocean   (+=down) [kg/m2]  C   oceFWfx  :: net fresh water flux to the ocean   (+=down) [kg/m2]
# Line 47  C   oceSflx  :: net salt flux to the oce Line 53  C   oceSflx  :: net salt flux to the oce
53        COMMON / THSICE_FLUX /        COMMON / THSICE_FLUX /
54  c    &       oceQsw, oceQnet, oceFWfx, oceSflx,  c    &       oceQsw, oceQnet, oceFWfx, oceSflx,
55       &       sHeating, flxCndBt,       &       sHeating, flxCndBt,
56       &       snowPrc, siceAlb       &       snowPrc, siceAlb,
57  #ifdef COUPLE_MODEL       &       icFlxSW, icFlxAtm, icFrwAtm
      &     , dFdT  
 #endif  
58    
59  c     _RL oceQnet(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  c     _RL oceQnet(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
60  c     _RL oceQsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  c     _RL oceQsw (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 60  c     _RL oceSflx(1-OLx:sNx+OLx,1-OLy:sN Line 64  c     _RL oceSflx(1-OLx:sNx+OLx,1-OLy:sN
64        _RL flxCndBt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL flxCndBt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
65        _RL snowPrc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL snowPrc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
66        _RL siceAlb (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL siceAlb (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
67  #ifdef COUPLE_MODEL        _RL icFlxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
68        _RL dFdT    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL icFlxAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
69  #endif        _RL icFrwAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
70    
71  C-- COMMON / THSICE_OCEMXLAYER / oceanic mixed layer state  C-- COMMON / THSICE_OCEMXLAYER / oceanic mixed layer state
72  C   hOceMxL :: thickness   of the ocean mixed layer [m]  C   hOceMxL :: thickness   of the ocean mixed layer [m]
# Line 77  C   v2ocMxL :: velocity (square) in the Line 81  C   v2ocMxL :: velocity (square) in the
81        _RL sOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL sOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
82        _RL v2ocMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL v2ocMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
83    
 #ifdef ALLOW_AUTODIFF_TAMC  
       INTEGER iicekey  
 #endif  
   
84  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
85    
86  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22