/[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.8 by jmc, Wed Apr 4 01:56:17 2007 UTC revision 1.13 by jmc, Thu May 2 20:03:12 2013 UTC
# Line 37  C   snowAge   :: snow age Line 37  C   snowAge   :: snow age
37  C-- COMMON /THSICE_FLUX/ hold fluxes needed for thsice model  C-- COMMON /THSICE_FLUX/ hold fluxes needed for thsice model
38  C   sHeating :: surf heating left to melt snow or ice (= Atmos-Conduction)  C   sHeating :: surf heating left to melt snow or ice (= Atmos-Conduction)
39  C   flxCndBt :: heat flux conducted through the ice to bottom surface  C   flxCndBt :: heat flux conducted through the ice to bottom surface
 C   snowPrc  :: snow precipitation                        [kg/m2/s]  
40  C   siceAlb  :: area weighted sea-ice albedo           [0-1]  C   siceAlb  :: area weighted sea-ice albedo           [0-1]
41    C   icAlbNIR :: seaice(+snow) surface Near Infra-Red Albedo
42  C atmospheric fluxes (change along the time-stepping):  C atmospheric fluxes (change along the time-stepping):
43  C   icFlxSW  :: short-wave heat flux (+=down) over sea-ice  C   icFlxSW  :: short-wave heat flux (+=down) over sea-ice
44  C               (downward SW / net SW @ surface / net SW below sea-ice)  C               (downward SW / net SW @ surface / net SW below sea-ice)
# Line 50  C   oceQnet  :: net heat flux  to the oc Line 50  C   oceQnet  :: net heat flux  to the oc
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]
52  C   oceSflx  :: net salt flux to the ocean      (+=down) [psu.kg/m2]  C   oceSflx  :: net salt flux to the ocean      (+=down) [psu.kg/m2]
53    C   adjustFrW :: global adjustment to surface fresh-water flux [kg/m2/s]
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,       &       siceAlb, icAlbNIR,
58       &       icFlxSW, icFlxAtm, icFrwAtm       &       icFlxSW, icFlxAtm, icFrwAtm,
59         &       adjustFrW
60    
61  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)
62  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 62  c     _RL oceFWfx(1-OLx:sNx+OLx,1-OLy:sN Line 64  c     _RL oceFWfx(1-OLx:sNx+OLx,1-OLy:sN
64  c     _RL oceSflx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  c     _RL oceSflx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
65        _RL sHeating(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL sHeating(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
66        _RL flxCndBt(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL flxCndBt(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          _RL icAlbNIR(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
69        _RL icFlxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL icFlxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
70        _RL icFlxAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _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)        _RL icFrwAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
72          _RL adjustFrW
73    
74    C-- COMMON /THSICE_DYN_R/  variables used with sea-ice advection/diffusion
75    C   oceFWfx   :: fresh water flux to the ocean  [kg/m^2/s]
76    C   oceSflx   :: salt flux to the ocean         [psu.kg/m^2/s] (~g/m^2/s)
77    C   oceQnet   :: heat flux to the ocean         [W/m^2]
78    C---
79    C    Note :: when ice volume is too small to be kept, ice & snow is melt
80    C        and fresh water, salt and heat are returned to the ocean.
81    C        For now, those fluxes are stored separately and will try to find
82    C        out how to incorporate them more naturally in the usual forcing.
83    C---
84          COMMON /THSICE_DYN_R/
85         &       oceFWfx, oceSflx, oceQnet
86    
87          _RL oceFWfx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
88          _RL oceSflx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
89          _RL oceQnet(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90    
91  C-- COMMON / THSICE_OCEMXLAYER / oceanic mixed layer state  C-- COMMON / THSICE_OCEMXLAYER / oceanic mixed layer state
92  C   hOceMxL :: thickness   of the ocean mixed layer [m]  C   hOceMxL :: thickness   of the ocean mixed layer [m]
# Line 81  C   v2ocMxL :: velocity (square) in the Line 101  C   v2ocMxL :: velocity (square) in the
101        _RL sOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL sOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
102        _RL v2ocMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL v2ocMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
103    
 #ifdef ALLOW_AUTODIFF_TAMC  
       INTEGER iicekey  
 #endif  
   
104  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
105    
106  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22