/[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.9 by dimitri, Fri Jul 31 03:09:05 2009 UTC revision 1.10 by dimitri, Wed Jan 20 00:44:08 2010 UTC
# Line 24  C     === Global variables === Line 24  C     === Global variables ===
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25  #include "FFIELDS.h"  #include "FFIELDS.h"
26  #include "SEAICE_PARAMS.h"  #include "SEAICE_PARAMS.h"
 #ifdef SEAICE_VARIABLE_FREEZING_POINT  
 # include "DYNVARS.h"  
 #endif  
27  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
28  # include "EXF_OPTIONS.h"  # include "EXF_OPTIONS.h"
29  # include "EXF_FIELDS.h"  # include "EXF_FIELDS.h"
# Line 55  C     === Local variables === Line 52  C     === Local variables ===
52  C     i,j - Loop counters  C     i,j - Loop counters
53        INTEGER i, j        INTEGER i, j
54  #ifndef SEAICE_EXTERNAL_FLUXES  #ifndef SEAICE_EXTERNAL_FLUXES
55        INTEGER ITER        _RL  QS1, D1, D1W, D3, TMELT
       _RL  QS1, TB, D1, D1W, D3, TMELT  
 C     effective conductivity of combined ice and snow  
       _RL  effConduct  
 C     specific humidity at ice surface  
       _RL  qhIce  
 C     powers of temperature  
       _RL  t1, t2, t3, t4  
56    
57  C     local copies of global variables  C     local copies of global variables
58        _RL tsurfLoc   (1:sNx,1:sNy)        _RL tsurfLoc   (1:sNx,1:sNy)
# Line 78  C     auxiliary variable Line 68  C     auxiliary variable
68  C NOW DEFINE ASSORTED CONSTANTS  C NOW DEFINE ASSORTED CONSTANTS
69  C SATURATION VAPOR PRESSURE CONSTANT  C SATURATION VAPOR PRESSURE CONSTANT
70        QS1=0.622 _d +00/1013.0 _d +00        QS1=0.622 _d +00/1013.0 _d +00
 C FREEZING TEMPERATURE OF SEAWATER  
       TB=271.2 _d +00  
71  C SENSIBLE HEAT CONSTANT  C SENSIBLE HEAT CONSTANT
72        D1=SEAICE_sensHeat        D1=SEAICE_sensHeat
73  C WATER LATENT HEAT CONSTANT  C WATER LATENT HEAT CONSTANT
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22