/[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.10 by jmc, Thu Aug 30 15:02:51 2007 UTC
# Line 68  c     _RL oceSflx(1-OLx:sNx+OLx,1-OLy:sN Line 68  c     _RL oceSflx(1-OLx:sNx+OLx,1-OLy:sN
68        _RL icFlxAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL icFlxAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
69        _RL icFrwAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL icFrwAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
70    
71    C-- COMMON /THSICE_DYN_R/  variables used with sea-ice advection/diffusion
72    C   oceFWfx   :: fresh water flux to the ocean  [kg/m^2/s]
73    C   oceSflx   :: salt flux to the ocean         [psu.kg/m^2/s] (~g/m^2/s)
74    C   oceQnet   :: heat flux to the ocean         [W/m^2]
75    C---
76    C    Note :: when ice volume is too small to be kept, ice & snow is melt
77    C        and fresh water, salt and heat are returned to the ocean.
78    C        For now, those fluxes are stored separately and will try to find
79    C        out how to incorporate them more naturally in the usual forcing.
80    C---
81          COMMON /THSICE_DYN_R/
82         &       oceFWfx, oceSflx, oceQnet
83    
84          _RL oceFWfx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
85          _RL oceSflx(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
86          _RL oceQnet(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
87    
88  C-- COMMON / THSICE_OCEMXLAYER / oceanic mixed layer state  C-- COMMON / THSICE_OCEMXLAYER / oceanic mixed layer state
89  C   hOceMxL :: thickness   of the ocean mixed layer [m]  C   hOceMxL :: thickness   of the ocean mixed layer [m]
90  C   tOceMxL :: temperature in the ocean mixed layer [oC]  C   tOceMxL :: temperature in the ocean mixed layer [oC]
# Line 81  C   v2ocMxL :: velocity (square) in the Line 98  C   v2ocMxL :: velocity (square) in the
98        _RL sOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL sOceMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
99        _RL v2ocMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL v2ocMxL(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
100    
 #ifdef ALLOW_AUTODIFF_TAMC  
       INTEGER iicekey  
 #endif  
   
101  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
102    
103  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22