/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/STREAMICE.h
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/streamice/STREAMICE.h

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

revision 1.21 by dgoldberg, Thu May 23 22:12:33 2013 UTC revision 1.22 by dgoldberg, Sat Jun 8 22:15:33 2013 UTC
# Line 85  C     -------------------------- CHAR PA Line 85  C     -------------------------- CHAR PA
85        CHARACTER*(MAX_LEN_FNAM) STREAMICEdelsigFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEdelsigFile
86        CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracConfig        CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracConfig
87        CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstConfig        CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstConfig
       CHARACTER*(MAX_LEN_FNAM) STREAMICEBdotConfig  
88        CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEbasalTracFile
89        CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEGlenConstFile
       CHARACTER*(MAX_LEN_FNAM) STREAMICEBdotFile  
90        CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEvelOptimFile
91        CHARACTER*(MAX_LEN_FNAM) STREAMICEtopogFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEtopogFile
92        CHARACTER*(MAX_LEN_FNAM) STREAMICEcostMaskFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEcostMaskFile
93          CHARACTER*(MAX_LEN_FNAM) STREAMICE_ADV_SCHEME
94                
95  !     THE FOLLOWING FILENAMES ARE FOR SPECIFYING IRREGULAR DOMAIN GEOMETRIES  !     THE FOLLOWING FILENAMES ARE FOR SPECIFYING IRREGULAR DOMAIN GEOMETRIES
96  !     (i.e. boundaries that do not conform with rectangular walls)  !     (i.e. boundaries that do not conform with rectangular walls)
97        CHARACTER*(MAX_LEN_FNAM) STREAMICEhmaskFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEhmaskFile
98          CHARACTER*(MAX_LEN_FNAM) STREAMICEHBCxFile
99          CHARACTER*(MAX_LEN_FNAM) STREAMICEHBCyFile
100        CHARACTER*(MAX_LEN_FNAM) STREAMICEuFaceBdryFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEuFaceBdryFile
101        CHARACTER*(MAX_LEN_FNAM) STREAMICEvFaceBdryFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEvFaceBdryFile
102        CHARACTER*(MAX_LEN_FNAM) STREAMICEuDirichValsFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEuDirichValsFile
103        CHARACTER*(MAX_LEN_FNAM) STREAMICEvDirichValsFile        CHARACTER*(MAX_LEN_FNAM) STREAMICEvDirichValsFile
104    
105    #ifdef ALLOW_PETSC
106  !     CHARACTER PARAMS FOR PETSC  !     CHARACTER PARAMS FOR PETSC
107        CHARACTER*(MAX_LEN_FNAM) PETSC_SOLVER_TYPE        CHARACTER*(MAX_LEN_FNAM) PETSC_SOLVER_TYPE
108        CHARACTER*(MAX_LEN_FNAM) PETSC_PRECOND_TYPE        CHARACTER*(MAX_LEN_FNAM) PETSC_PRECOND_TYPE
109          #endif
110              
111    #ifdef ALLOW_STREAMICE_2DTRACER
112    !     CHARACTER PARAMS FOR TRACER
113          CHARACTER*(MAX_LEN_FNAM) STREAMICETrac2DBCxFile
114          CHARACTER*(MAX_LEN_FNAM) STREAMICETrac2DBCyFile
115          CHARACTER*(MAX_LEN_FNAM) STREAMICETrac2DinitFile
116    #endif
117        
118        COMMON /STREAMICE_PARM_C/        COMMON /STREAMICE_PARM_C/
119       &     STREAMICEthickInit,       &     STREAMICEthickInit,
120       &     STREAMICEthickFile,       &     STREAMICEthickFile,
# Line 118  C     -------------------------- CHAR PA Line 127  C     -------------------------- CHAR PA
127       &     STREAMICEvelOptimFile,       &     STREAMICEvelOptimFile,
128       &     STREAMICEtopogFile,       &     STREAMICEtopogFile,
129       &     STREAMICEhmaskFile,       &     STREAMICEhmaskFile,
130         &     STREAMICEHBCxFile,
131         &     STREAMICEHBCyFile,
132       &     STREAMICEuFaceBdryFile,       &     STREAMICEuFaceBdryFile,
133       &     STREAMICEvFaceBdryFile,       &     STREAMICEvFaceBdryFile,
134       &     STREAMICEuDirichValsFile,       &     STREAMICEuDirichValsFile,
135       &     STREAMICEvDirichValsFile,       &     STREAMICEvDirichValsFile,
136       &     STREAMICEGlenConstFile,       &     STREAMICEGlenConstFile,
137       &     STREAMICEGlenConstConfig,       &     STREAMICEGlenConstConfig,
138       &     STREAMICEBdotFile,       &     STREAMICEcostMaskFile,
139       &     STREAMICEBdotConfig,       &     STREAMICE_ADV_SCHEME
      &     STREAMICEcostMaskFile  
140    
141    #ifdef ALLOW_PETSC
142        COMMON /PETSC_PARM_C/        COMMON /PETSC_PARM_C/
143       &     PETSC_SOLVER_TYPE,       &     PETSC_SOLVER_TYPE,
144       &     PETSC_PRECOND_TYPE       &     PETSC_PRECOND_TYPE
145    #endif
146    
147    #ifdef ALLOW_STREAMICE_2DTRACER
148          COMMON /STREAMICE_TRAC2D_C/
149         &     STREAMICETrac2DBCxFile,
150         &     STREAMICETrac2DBCyFile,
151         &     STREAMICETrac2DinitFile
152    #endif
153            
154  C     -------------------------- LOGICAL PARAMS ---------------------------------------------------  C     -------------------------- LOGICAL PARAMS ---------------------------------------------------
155    
# Line 258  C    REAL ARRAYS Line 277  C    REAL ARRAYS
277       &     mass_ice_streamice,       &     mass_ice_streamice,
278       &     u_flux_bdry_SI,       &     u_flux_bdry_SI,
279       &     v_flux_bdry_SI,       &     v_flux_bdry_SI,
280       &     h_bdry_values_SI,       &     h_ubdry_values_SI,
281         &     h_vbdry_values_SI,
282       &     u_bdry_values_SI,       &     u_bdry_values_SI,
283       &     v_bdry_values_SI,       &     v_bdry_values_SI,
284       &     STREAMICE_dummy_array,       &     STREAMICE_dummy_array,
# Line 277  C    REAL ARRAYS Line 297  C    REAL ARRAYS
297       &     streamice_vert_shear_uz, streamice_vert_shear_vz           &     streamice_vert_shear_uz, streamice_vert_shear_vz    
298  #endif  #endif
299    
300    #ifdef ALLOW_STREAMICE_2DTRACER
301          COMMON /STREAMICE_TRAC2D_FIELDS_RL/
302         &     trac2d_ubdry_values_SI,
303         &     trac2d_vbdry_values_SI,
304         &     trac2d
305    #ifdef STREAMICE_TRACER_AB
306          COMMON /STREAMICE_TRAC2D_AB_RL/
307         &     GAD_trac_2d
308    #endif
309    #endif
310    
311  #ifdef USE_ALT_RLOW  #ifdef USE_ALT_RLOW
312        COMMON /STREAMICE_RLOW/        COMMON /STREAMICE_RLOW/
313       &     R_low_si       &     R_low_si
# Line 295  C    REAL ARRAYS Line 326  C    REAL ARRAYS
326        _RL mass_ice_streamice    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL mass_ice_streamice    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
327        _RL u_flux_bdry_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL u_flux_bdry_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
328        _RL v_flux_bdry_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL v_flux_bdry_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
329        _RL h_bdry_values_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL h_ubdry_values_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
330          _RL h_vbdry_values_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
331        _RL u_bdry_values_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL u_bdry_values_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
332        _RL v_bdry_values_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL v_bdry_values_SI    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
333        _RL C_basal_friction    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL C_basal_friction    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 322  C     The following arrays are used for Line 354  C     The following arrays are used for
354        _RL streamice_vert_shear_uz (Nr)        _RL streamice_vert_shear_uz (Nr)
355        _RL streamice_vert_shear_vz (Nr)        _RL streamice_vert_shear_vz (Nr)
356  #endif        #endif      
357              
358    #ifdef ALLOW_STREAMICE_2DTRACER
359          _RL trac2d_ubdry_values_SI
360         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
361          _RL trac2d_vbdry_values_SI
362         &   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
363          _RL trac2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
364    #ifdef STREAMICE_TRACER_AB
365          _RL GAD_trac_2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
366    #endif
367    #endif
368                
369        _RL ADOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL ADOT_streamice (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
370  !! IMPORTANT: MELT RATE IN METERS PER YEAR  !! IMPORTANT: MELT RATE IN METERS PER YEAR
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22