/[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.2 by ksnow, Mon Jan 30 16:35:09 2017 UTC revision 1.3 by dgoldberg, Wed Feb 1 12:45:48 2017 UTC
# Line 119  CEOP Line 119  CEOP
119       &     SHELFICERemeshFrequency,       &     SHELFICERemeshFrequency,
120       &     SHELFICESplitThreshold,       &     SHELFICESplitThreshold,
121       &     SHELFICEMergeThreshold,       &     SHELFICEMergeThreshold,
122       &     shelficeEtaRelax,       &     shelficeEtaRelax
 C KS_dens  
      &     dig_depth  
123        _RL SHELFICE_dumpFreq, SHELFICE_taveFreq        _RL SHELFICE_dumpFreq, SHELFICE_taveFreq
124        _RL SHELFICEheatTransCoeff        _RL SHELFICEheatTransCoeff
125        _RL SHELFICEsaltTransCoeff        _RL SHELFICEsaltTransCoeff
# Line 137  C KS_dens Line 135  C KS_dens
135        _RL SHELFICERemeshFrequency        _RL SHELFICERemeshFrequency
136        _RL shiPrandtl, shiSchmidt, shiKinVisc        _RL shiPrandtl, shiSchmidt, shiKinVisc
137        _RL SHELFICEGroundW, SHELFICEGroundC, shelficeEtaRelax        _RL SHELFICEGroundW, SHELFICEGroundC, shelficeEtaRelax
 C KS_dens  
       _RL dig_depth  
138        COMMON /SHELFICE_FIELDS_RL/        COMMON /SHELFICE_FIELDS_RL/
139       &     shelficeMass, shelficeMassInit,       &     shelficeMass, shelficeMassInit,
140       &     shelficeLoadAnomaly,       &     shelficeLoadAnomaly,
141       &     shelficeForcingT, shelficeForcingS,       &     shelficeForcingT, shelficeForcingS,
142       &     shiTransCoeffT, shiTransCoeffS, EFFMASS,       &     shiTransCoeffT, shiTransCoeffS, EFFMASS
 C KS_drag  
      &     GrdFactor  
143        _RL shelficeMass          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL shelficeMass          (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
144        _RL shelficeMassInit      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL shelficeMassInit      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
145        _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 155  C KS_drag Line 149  C KS_drag
149        _RL shiTransCoeffS        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL shiTransCoeffS        (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
150        _RL EFFMASS               (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL EFFMASS               (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
151        _RL SeaLevelRestore       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL SeaLevelRestore       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
 C KS_drag  
       _RL GrdFactor(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  
152    
153        COMMON /SHELFICE_FIELDS_RS/        COMMON /SHELFICE_FIELDS_RS/
154       &     R_shelfIce, R_MWCT,       &     R_shelfIce, R_MWCT,
155       &     shelficeHeatFlux,       &     shelficeHeatFlux,
156       &     shelfIceFreshWaterFlux,       &     shelfIceFreshWaterFlux,
157       &     shelfIceMassDynTendency       &     shelfIceMassDynTendency
158    #ifdef ALLOW_SHELFICE_GROUNDED_ICE
159         &     , GrdFactor
160    #endif
161    
162        _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)
163        _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)
164        _RS shelficeHeatFlux      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS shelficeHeatFlux      (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
165        _RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS shelficeFreshWaterFlux(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
166        _RS        _RS
167       &   shelfIceMassDynTendency(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)       &   shelfIceMassDynTendency(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
168    #ifdef ALLOW_SHELFICE_GROUNDED_ICE
169          _RS GrdFactor             (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
170    #endif
171    
172  #ifdef ALLOW_SHIFWFLX_CONTROL  #ifdef ALLOW_SHIFWFLX_CONTROL
173        COMMON /SHELFICE_MASKS_CTRL/ maskSHI        COMMON /SHELFICE_MASKS_CTRL/ maskSHI
# Line 196  C KS_drag Line 195  C KS_drag
195        LOGICAL SHELFICE_massmin_truedens        LOGICAL SHELFICE_massmin_truedens
196  C   KS16 put var here  C   KS16 put var here
197        LOGICAL conserve_ssh        LOGICAL conserve_ssh
       LOGICAL const_dig  
198        COMMON /SHELFICE_PARMS_L/        COMMON /SHELFICE_PARMS_L/
199       &     SHELFICEisOn,       &     SHELFICEisOn,
200       &     useISOMIPTD,       &     useISOMIPTD,
# Line 218  C   KS16 put var here Line 216  C   KS16 put var here
216       &     SHELFICE_dig_ice,       &     SHELFICE_dig_ice,
217       &     SHELFICE_massmin_truedens,       &     SHELFICE_massmin_truedens,
218  C  KS16 and here;  C  KS16 and here;
219       &     conserve_ssh,       &     conserve_ssh
      &     const_dig  
220    
221        CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile        CHARACTER*(MAX_LEN_FNAM) SHELFICEloadAnomalyFile
222        CHARACTER*(MAX_LEN_FNAM) SHELFICEmassFile        CHARACTER*(MAX_LEN_FNAM) SHELFICEmassFile
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22