/[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.11 by jmc, Wed Jul 8 23:35:05 2009 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   icAlbNIR :: seaice(+snow) surface Near Infra-Red Albedo
43    C atmospheric fluxes (change along the time-stepping):
44    C   icFlxSW  :: short-wave heat flux (+=down) over sea-ice
45    C               (downward SW / net SW @ surface / net SW below sea-ice)
46    C   icFlxAtm :: Atmospheric surf. heat flux over sea-ice [W/m2] (+=down)
47    C               (over sea-ice only / weighted by ice-fraction)
48    C   icFrwAtm :: fresh-water flux (E-P) from the atmosphere [kg/m2/s] (+=up)
49    C               ( ice Evap only / ice E-P / ice - ocean weighted E-P )
50  C   oceQnet  :: net heat flux  to the ocean         (+=down) [W/m2]  C   oceQnet  :: net heat flux  to the ocean         (+=down) [W/m2]
51  C   oceQsw   :: net short-wave that enter the ocean (+=down) [W/m2]  C   oceQsw   :: net short-wave that enter the ocean (+=down) [W/m2]
52  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 54  C   oceSflx  :: net salt flux to the oce
54        COMMON / THSICE_FLUX /        COMMON / THSICE_FLUX /
55  c    &       oceQsw, oceQnet, oceFWfx, oceSflx,  c    &       oceQsw, oceQnet, oceFWfx, oceSflx,
56       &       sHeating, flxCndBt,       &       sHeating, flxCndBt,
57       &       snowPrc, siceAlb       &       snowPrc, siceAlb, icAlbNIR,
58  #ifdef COUPLE_MODEL       &       icFlxSW, icFlxAtm, icFrwAtm
      &     , dFdT  
 #endif  
59    
60  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)
61  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 65  c     _RL oceSflx(1-OLx:sNx+OLx,1-OLy:sN
65        _RL flxCndBt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL flxCndBt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
66        _RL snowPrc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL snowPrc (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
67        _RL siceAlb (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL siceAlb (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
68  #ifdef COUPLE_MODEL        _RL icAlbNIR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
69        _RL dFdT    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL icFlxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
70  #endif        _RL icFlxAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
71          _RL icFrwAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
72    
73    C-- COMMON /THSICE_DYN_R/  variables used with sea-ice advection/diffusion
74    C   oceFWfx   :: fresh water flux to the ocean  [kg/m^2/s]
75    C   oceSflx   :: salt flux to the ocean         [psu.kg/m^2/s] (~g/m^2/s)
76    C   oceQnet   :: heat flux to the ocean         [W/m^2]
77    C---
78    C    Note :: when ice volume is too small to be kept, ice & snow is melt
79    C        and fresh water, salt and heat are returned to the ocean.
80    C        For now, those fluxes are stored separately and will try to find
81    C        out how to incorporate them more naturally in the usual forcing.
82    C---
83          COMMON /THSICE_DYN_R/
84         &       oceFWfx, oceSflx, oceQnet
85    
86          _RL oceFWfx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
87          _RL oceSflx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
88          _RL oceQnet(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
89    
90  C-- COMMON / THSICE_OCEMXLAYER / oceanic mixed layer state  C-- COMMON / THSICE_OCEMXLAYER / oceanic mixed layer state
91  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 100  C   v2ocMxL :: velocity (square) in the
100        _RL sOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL sOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
101        _RL v2ocMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL v2ocMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
102    
 #ifdef ALLOW_AUTODIFF_TAMC  
       INTEGER iicekey  
 #endif  
   
103  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
104    
105  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22