/[MITgcm]/MITgcm/pkg/seaice/SEAICE_PARAMS.h
ViewVC logotype

Diff of /MITgcm/pkg/seaice/SEAICE_PARAMS.h

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

revision 1.2 by heimbach, Tue Nov 12 20:47:27 2002 UTC revision 1.3 by dimitri, Thu Dec 5 08:43:02 2002 UTC
# Line 17  C Line 17  C
17       &        SEAICEwriteState, SEAICEuseLSR, SEAICEuseDYNAMICS       &        SEAICEwriteState, SEAICEuseLSR, SEAICEuseDYNAMICS
18    
19  C--   COMMON /SEAICE_PARM_I/ Integer valued parameters of sea ice model.  C--   COMMON /SEAICE_PARM_I/ Integer valued parameters of sea ice model.
20  C     LAD        -  C     LAD        - time stepping used for sea-ice advection:
21    C                  1 = LEAPFROG,  2 = BACKWARD EULER.
22  C     IMAX_TICE  - number of iterations for ice heat budget   10  C     IMAX_TICE  - number of iterations for ice heat budget   10
23  C     NPSEUDO    - number of pseudo-timesteps used in dynsolver  C     NPSEUDO    - number of pseudo-timesteps used in dynsolver
24  C DO PSEUDO-TIMESTEPS TO OBTAIN AN ACCURATE VISCOUS-PLASTIC SOLUTION  C DO PSEUDO-TIMESTEPS TO OBTAIN AN ACCURATE VISCOUS-PLASTIC SOLUTION
# Line 126  C Line 127  C
127        COMMON /SEAICE_BOUND_RL/        COMMON /SEAICE_BOUND_RL/
128       &    MAX_HEFF, MIN_TAIR, MIN_FLO, MAX_TICE, MIN_TICE       &    MAX_HEFF, MIN_TAIR, MIN_FLO, MAX_TICE, MIN_TICE
129    
130    C--   Seaice time step
131          COMMON /SEAICE_R/ SEAICE_DT
132          _RL               SEAICE_DT
133    
134    C--   Constants used by sea-ice model
135          _RL         ZERO           , ONE           , TWO
136          parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 )
137          _RL         QUART            , HALF
138          parameter ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 )
139    
140  #endif ALLOW_SEAICE  #endif ALLOW_SEAICE
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22