/[MITgcm]/MITgcm/pkg/streamice/STREAMICE.h
ViewVC logotype

Diff of /MITgcm/pkg/streamice/STREAMICE.h

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

revision 1.8 by jmc, Thu May 22 22:54:13 2014 UTC revision 1.9 by dgoldberg, Wed Jun 4 13:08:52 2014 UTC
# Line 22  C     & A_glen_isothermal, n_glen, eps_g Line 22  C     & A_glen_isothermal, n_glen, eps_g
22       & streamice_wgt_tikh,       & streamice_wgt_tikh,
23       & streamice_addl_backstress,       & streamice_addl_backstress,
24       & streamice_smooth_gl_width,       & streamice_smooth_gl_width,
25       & streamice_adot_uniform       & streamice_adot_uniform,
26         & streamice_forcing_period
27    
28    
29        _RL streamice_density, streamice_density_ocean_avg        _RL streamice_density, streamice_density_ocean_avg
30  C      _RL A_glen_isothermal, n_glen, eps_glen_min, eps_u_min  C      _RL A_glen_isothermal, n_glen, eps_glen_min, eps_u_min
# Line 42  C      _RL A_glen_isothermal, n_glen, ep Line 44  C      _RL A_glen_isothermal, n_glen, ep
44        _RL streamice_wgt_tikh        _RL streamice_wgt_tikh
45        _RL streamice_addl_backstress        _RL streamice_addl_backstress
46        _RL streamice_smooth_gl_width        _RL streamice_smooth_gl_width
47        _RL streamice_adot_uniform        _RL streamice_adot_uniform
48          _RL streamice_forcing_period
49    
50    
51  C     parms for parameterized initial thickness  C     parms for parameterized initial thickness
52  C     SHELF_MAX_DRAFT: max thickness of ice in m  C     SHELF_MAX_DRAFT: max thickness of ice in m
# Line 94  C     -------------------------- CHAR PA Line 98  C     -------------------------- CHAR PA
98        CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile
99        CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstFile
100        CHARACTER*(MAX_LEN_FNAM) STREAMICEBdotFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEBdotFile
101          CHARACTER*(MAX_LEN_FNAM) STREAMICEBdotTimeDepFile
102        CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile
103        CHARACTER*(MAX_LEN_FNAM) STREAMICEtopogFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEtopogFile
104        CHARACTER*(MAX_LEN_FNAM) STREAMICEcostMaskFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEcostMaskFile
# Line 116  C     -------------------------- CHAR PA Line 121  C     -------------------------- CHAR PA
121        CHARACTER*(MAX_LEN_FNAM) STREAMICEvNormalStressFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEvNormalStressFile
122        CHARACTER*(MAX_LEN_FNAM) STREAMICEuShearStressFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEuShearStressFile
123        CHARACTER*(MAX_LEN_FNAM) STREAMICEvShearStressFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEvShearStressFile
124          CHARACTER*(MAX_LEN_FNAM) STREAMICEuNormalTimeDepFile
125          CHARACTER*(MAX_LEN_FNAM) STREAMICEvNormalTimeDepFile
126          CHARACTER*(MAX_LEN_FNAM) STREAMICEuShearTimeDepFile
127          CHARACTER*(MAX_LEN_FNAM) STREAMICEvShearTimeDepFile
128    
129  #ifdef ALLOW_PETSC  #ifdef ALLOW_PETSC
130  !     CHARACTER PARAMS FOR PETSC  !     CHARACTER PARAMS FOR PETSC
# Line 155  C     -------------------------- CHAR PA Line 164  C     -------------------------- CHAR PA
164       &     STREAMICEvNormalStressFile,       &     STREAMICEvNormalStressFile,
165       &     STREAMICEuShearStressFile,       &     STREAMICEuShearStressFile,
166       &     STREAMICEvShearStressFile,       &     STREAMICEvShearStressFile,
167         &     STREAMICEuNormalTimeDepFile,
168         &     STREAMICEvNormalTimeDepFile,
169         &     STREAMICEuShearTimeDepFile,
170         &     STREAMICEvShearTimeDepFile,
171       &     STREAMICEGlenConstFile,       &     STREAMICEGlenConstFile,
172       &     STREAMICEBdotFile,       &     STREAMICEBdotFile,
173         &     STREAMICEBdotTimeDepFile,
174       &     STREAMICEGlenConstConfig,       &     STREAMICEGlenConstConfig,
175       &     STREAMICEcostMaskFile,       &     STREAMICEcostMaskFile,
176       &     STREAMICE_ADV_SCHEME       &     STREAMICE_ADV_SCHEME
# Line 215  C     -------------------------- AND NOW Line 229  C     -------------------------- AND NOW
229    
230  C     EXPLANATION OF MASKS  C     EXPLANATION OF MASKS
231    
232  C     STREAMICE_hmask           VALUES  1=ice-covered cell  C     STREAMICE_hmask           VALUES  1=ice-covered cell
233  C                                       2=partially ice-covered cell (no dynamics)  C                                       2=partially ice-covered cell (no dynamics)
234  C                                       0=ice-free cell (for now, it means the cell  C                                       0=ice-free cell (for now, it means the cell
235  C                                                           is treated as an open-ocean cell  C                                                           is treated as an open-ocean cell
# Line 314  C     &     A_glen, Line 328  C     &     A_glen,
328    
329  #ifdef STREAMICE_STRESS_BOUNDARY_CONTROL  #ifdef STREAMICE_STRESS_BOUNDARY_CONTROL
330        COMMON /STREAMICE_STRESS_BOUNDARY/        COMMON /STREAMICE_STRESS_BOUNDARY/
331       &      streamice_u_normal_pert,       &      streamice_u_normal_pert,
332       &      streamice_v_normal_pert,       &      streamice_v_normal_pert,
333       &      streamice_u_shear_pert,       &      streamice_u_shear_pert,
334       &      streamice_v_shear_pert,       &      streamice_v_shear_pert,
335       &      streamice_u_normal_stress,       &      streamice_u_normal_stress,
336       &      streamice_v_normal_stress,       &      streamice_v_normal_stress,
337       &      streamice_u_shear_stress,       &      streamice_u_shear_stress,
338       &      streamice_v_shear_stress       &      streamice_v_shear_stress
# Line 333  C     &     A_glen, Line 347  C     &     A_glen,
347       &     streamice_vert_shear_uz, streamice_vert_shear_vz       &     streamice_vert_shear_uz, streamice_vert_shear_vz
348  #endif  #endif
349    
350    
351    #ifdef ALLOW_STREAMICE_TIMEDEP_FORCING
352          COMMON /STREAMICE_TIMEDEP_FORCE/
353         &      bdot_streamice0,
354         &      bdot_streamice1
355    #ifdef STREAMICE_STRESS_BOUNDARY_CONTROL
356         &      ,streamice_u_normal_stress0,
357         &      streamice_u_normal_stress1,
358         &      streamice_v_normal_stress0,
359         &      streamice_v_normal_stress1,
360         &      streamice_u_shear_stress0,
361         &      streamice_u_shear_stress1,
362         &      streamice_v_shear_stress0,
363         &      streamice_v_shear_stress1
364    #endif    
365    #endif
366    
367  #ifdef ALLOW_STREAMICE_2DTRACER  #ifdef ALLOW_STREAMICE_2DTRACER
368        COMMON /STREAMICE_TRAC2D_FIELDS_RL/        COMMON /STREAMICE_TRAC2D_FIELDS_RL/
369       &     trac2d_ubdry_values_SI,       &     trac2d_ubdry_values_SI,
# Line 349  C     &     A_glen, Line 380  C     &     A_glen,
380       &     R_low_si       &     R_low_si
381  #endif  #endif
382    
383    
384        _RL H_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL H_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
385        _RL U_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL U_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
386        _RL V_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL V_streamice           (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 434  C     The following arrays are used for Line 466  C     The following arrays are used for
466        _RL H_streamice_prev (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL H_streamice_prev (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
467        _RL STREAMICE_dummy_array (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL STREAMICE_dummy_array (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
468    
469    #ifdef ALLOW_STREAMICE_TIMEDEP_FORCING
470    #ifdef STREAMICE_STRESS_BOUNDARY_CONTROL
471            _RL streamice_u_normal_stress0
472         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
473          _RL streamice_u_normal_stress1
474         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
475          _RL streamice_v_normal_stress0
476         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
477          _RL streamice_v_normal_stress1
478         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
479          _RL streamice_u_shear_stress0
480         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
481          _RL streamice_u_shear_stress1
482         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
483          _RL streamice_v_shear_stress0
484         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
485          _RL streamice_v_shear_stress1
486         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
487    #endif    
488          _RL bdot_streamice0
489         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
490          _RL bdot_streamice1
491         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
492    #endif
493    
494        COMMON /STREAMICE_COST_RL/        COMMON /STREAMICE_COST_RL/
495       &       cost_func1_streamice,       &       cost_func1_streamice,
496       &       cost_vel_streamice,       &       cost_vel_streamice,
# Line 468  C        velocity initial guess, so they Line 525  C        velocity initial guess, so they
525        INTEGER n_dofs_process (0:nPx*nPy-1)        INTEGER n_dofs_process (0:nPx*nPy-1)
526  #endif  #endif
527    
528    
529  #endif /* ALLOW_STREAMICE */  #endif /* ALLOW_STREAMICE */
530    
531  CEH3 ;;; Local Variables: ***  CEH3 ;;; Local Variables: ***
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22