/[MITgcm]/MITgcm_contrib/ksnow/press_release/code_expt/SHELFICE.h
ViewVC logotype

Diff of /MITgcm_contrib/ksnow/press_release/code_expt/SHELFICE.h

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

revision 1.1 by ksnow, Fri Dec 16 15:25:29 2016 UTC revision 1.2 by ksnow, Mon Jan 30 16:35:09 2017 UTC
# Line 19  C--   Constants that can be set in data. Line 19  C--   Constants that can be set in data.
19  C     SHELFICEtopoFile         :: File containing the topography of the  C     SHELFICEtopoFile         :: File containing the topography of the
20  C                                 shelfice draught (unit=m)  C                                 shelfice draught (unit=m)
21  C     SHELFICEmassFile         :: name of shelfice Mass file  C     SHELFICEmassFile         :: name of shelfice Mass file
 C     SHELFICEmassForcingFile  :: name of time-dependent shelfice Mass file  
22  C     SHELFICEloadAnomalyFile  :: name of shelfice load anomaly file  C     SHELFICEloadAnomalyFile  :: name of shelfice load anomaly file
23  C     SHELFICEMassDynTendFile  :: file name for other mass tendency  C     SHELFICEMassDynTendFile  :: file name for other mass tendency
24  C                                 (e.g. dynamics)  C                                 (e.g. dynamics)
# Line 78  C     SHELFICE_dump_mnc        :: use ne Line 77  C     SHELFICE_dump_mnc        :: use ne
77  C     SHELFICE_tave_mnc        :: use netcdf for time-averaged output  C     SHELFICE_tave_mnc        :: use netcdf for time-averaged output
78  C     SHELFICE_dumpFreq        :: analoguous to dumpFreq (= default)  C     SHELFICE_dumpFreq        :: analoguous to dumpFreq (= default)
79  C     SHELFICE_taveFreq        :: analoguous to taveFreq (= default)  C     SHELFICE_taveFreq        :: analoguous to taveFreq (= default)
 C     conserve_ssh             :: KS16. Use the obcs to conserve net open  
 C                                 ocean eta to 0m  
 C     useshelficemassforcing   :: flag to update shelficemass from file  
 C     shelfice_forcing_period  :: freq of update of mass from file  
80  C  C
81  C--   Fields  C--   Fields
82  C     ktopC                  :: index of the top "wet cell" (2D)  C     ktopC                  :: index of the top "wet cell" (2D)
# Line 98  C     shelficeForcingT       :: analogue Line 93  C     shelficeForcingT       :: analogue
93  C                               units are  r_unit.Kelvin/s (=Kelvin.m/s if r=z)  C                               units are  r_unit.Kelvin/s (=Kelvin.m/s if r=z)
94  C     shelficeForcingS       :: analogue of surfaceForcingS  C     shelficeForcingS       :: analogue of surfaceForcingS
95  C                               units are  r_unit.psu/s (=psu.m/s if r=z)  C                               units are  r_unit.psu/s (=psu.m/s if r=z)
96  C  C     conserve_ssh           :: KS16. Use the obcs to conserve net open
97  C  C                               ocean eta to 0m
98  C-----------------------------------------------------------------------  C-----------------------------------------------------------------------
99  C \ev  C \ev
100  CEOP  CEOP
# Line 125  CEOP Line 120  CEOP
120       &     SHELFICESplitThreshold,       &     SHELFICESplitThreshold,
121       &     SHELFICEMergeThreshold,       &     SHELFICEMergeThreshold,
122       &     shelficeEtaRelax,       &     shelficeEtaRelax,
123       &     shelfice_forcing_period  C KS_dens
124         &     dig_depth
125        _RL SHELFICE_dumpFreq, SHELFICE_taveFreq        _RL SHELFICE_dumpFreq, SHELFICE_taveFreq
126        _RL SHELFICEheatTransCoeff        _RL SHELFICEheatTransCoeff
127        _RL SHELFICEsaltTransCoeff        _RL SHELFICEsaltTransCoeff
# Line 141  CEOP Line 137  CEOP
137        _RL SHELFICERemeshFrequency        _RL SHELFICERemeshFrequency
138        _RL shiPrandtl, shiSchmidt, shiKinVisc        _RL shiPrandtl, shiSchmidt, shiKinVisc
139        _RL SHELFICEGroundW, SHELFICEGroundC, shelficeEtaRelax        _RL SHELFICEGroundW, SHELFICEGroundC, shelficeEtaRelax
140        _RL shelfice_forcing_period  C KS_dens
141                _RL dig_depth
142        COMMON /SHELFICE_FIELDS_RL/        COMMON /SHELFICE_FIELDS_RL/
143       &     shelficeMass, shelficeMassInit,       &     shelficeMass, shelficeMassInit,
144       &     shelficeLoadAnomaly,       &     shelficeLoadAnomaly,
145       &     shelficeForcingT, shelficeForcingS,       &     shelficeForcingT, shelficeForcingS,
146       &     shiTransCoeffT, shiTransCoeffS, EFFMASS       &     shiTransCoeffT, shiTransCoeffS, EFFMASS,
147    C KS_drag
148         &     GrdFactor
149        _RL shelficeMass          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL shelficeMass          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
150        _RL shelficeMassInit      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL shelficeMassInit      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
151        _RL shelficeLoadAnomaly   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL shelficeLoadAnomaly   (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 158  CEOP Line 155  CEOP
155        _RL shiTransCoeffS        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL shiTransCoeffS        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
156        _RL EFFMASS               (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL EFFMASS               (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
157        _RL SeaLevelRestore       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL SeaLevelRestore       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
158    C KS_drag
159          _RL GrdFactor(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
160    
161        COMMON /SHELFICE_FIELDS_RS/        COMMON /SHELFICE_FIELDS_RS/
162       &     R_shelfIce, R_MWCT,       &     R_shelfIce, R_MWCT,
163       &     shelficeHeatFlux,       &     shelficeHeatFlux,
164       &     shelfIceFreshWaterFlux,       &     shelfIceFreshWaterFlux,
165       &     shelfIceMassDynTendency       &     shelfIceMassDynTendency
 #ifdef ALLOW_SHELFICE_GROUNDED_ICE  
      &     , GrdFactor  
 #endif  
   
166        _RS R_shelfIce            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS R_shelfIce            (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
167        _RS R_MWCT                (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS R_MWCT                (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
168        _RS shelficeHeatFlux      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS shelficeHeatFlux      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
169        _RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
170        _RS        _RS
171       &   shelfIceMassDynTendency(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)       &   shelfIceMassDynTendency(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
 #ifdef ALLOW_SHELFICE_GROUNDED_ICE  
       _RS GrdFactor             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
 #endif  
172    
173  #ifdef ALLOW_SHIFWFLX_CONTROL  #ifdef ALLOW_SHIFWFLX_CONTROL
174        COMMON /SHELFICE_MASKS_CTRL/ maskSHI        COMMON /SHELFICE_MASKS_CTRL/ maskSHI
# Line 202  CEOP Line 194  CEOP
194        LOGICAL SHELFICEEtaSponge        LOGICAL SHELFICEEtaSponge
195        LOGICAL SHELFICE_dig_ice        LOGICAL SHELFICE_dig_ice
196        LOGICAL SHELFICE_massmin_truedens        LOGICAL SHELFICE_massmin_truedens
       LOGICAL SHELFICEusemassforcing  
197  C   KS16 put var here  C   KS16 put var here
198        LOGICAL conserve_ssh        LOGICAL conserve_ssh
199          LOGICAL const_dig
200        COMMON /SHELFICE_PARMS_L/        COMMON /SHELFICE_PARMS_L/
201       &     SHELFICEisOn,       &     SHELFICEisOn,
202       &     useISOMIPTD,       &     useISOMIPTD,
# Line 224  C   KS16 put var here Line 216  C   KS16 put var here
216       &     SHELFICEDynMassOnly,       &     SHELFICEDynMassOnly,
217       &     SHELFICEEtaSponge,       &     SHELFICEEtaSponge,
218       &     SHELFICE_dig_ice,       &     SHELFICE_dig_ice,
219       &     SHELFICE_massmin_truedens,         &     SHELFICE_massmin_truedens,
      &     SHELFICEusemassforcing,  
220  C  KS16 and here;  C  KS16 and here;
221       &     conserve_ssh       &     conserve_ssh,
222         &     const_dig
223    
224        CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile        CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile
225        CHARACTER*(MAX_LEN_FNAM) SHELFICEmassFile        CHARACTER*(MAX_LEN_FNAM) SHELFICEmassFile
# Line 236  C  KS16 and here; Line 228  C  KS16 and here;
228        CHARACTER*(MAX_LEN_FNAM) SHELFICEMassDynTendFile        CHARACTER*(MAX_LEN_FNAM) SHELFICEMassDynTendFile
229        CHARACTER*(MAX_LEN_FNAM) SHELFICEGroundInitFile        CHARACTER*(MAX_LEN_FNAM) SHELFICEGroundInitFile
230        CHARACTER*(MAX_LEN_FNAM) SHELFICETransCoeffTFile        CHARACTER*(MAX_LEN_FNAM) SHELFICETransCoeffTFile
231        CHARACTER*(MAX_LEN_FNAM) SHELFICEmassForcingFile  
232    
233        COMMON /SHELFICE_PARM_C/        COMMON /SHELFICE_PARM_C/
234       &     SHELFICEloadAnomalyFile,       &     SHELFICEloadAnomalyFile,
# Line 245  C  KS16 and here; Line 237  C  KS16 and here;
237       &     SHELFICEGroundTopoFile,       &     SHELFICEGroundTopoFile,
238       &     SHELFICEMassDynTendFile,       &     SHELFICEMassDynTendFile,
239       &     SHELFICEGroundInitFile,       &     SHELFICEGroundInitFile,
240       &     SHELFICETransCoeffTFile,       &     SHELFICETransCoeffTFile
      &     SHELFICEmassForcingFile  
       
       COMMON /SHELFICE_TIMEDEP_FORCE/  
      &     SHELFICEmass1,  
      &     SHELFICEmass0  
       
       _RS SHELFICEmass1       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
       _RS SHELFICEmass0       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)  
   
241    
242  #endif /* ALLOW_SHELFICE */  #endif /* ALLOW_SHELFICE */
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22