55 |
INTEGER K_icefront (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
INTEGER K_icefront (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
56 |
|
|
57 |
COMMON /ICEFRONT_PARMS_R/ |
COMMON /ICEFRONT_PARMS_R/ |
|
& ICEFRONTheatTransCoeff, ICEFRONTsaltTransCoeff, |
|
58 |
& rhoIcefront, ICEFRONTkappa, |
& rhoIcefront, ICEFRONTkappa, |
59 |
& ICEFRONTlatentHeat, recip_ICEFRONTlatentHeat, |
& ICEFRONTlatentHeat, recip_ICEFRONTlatentHeat, |
60 |
& ICEFRONTheatCapacity_Cp, |
& ICEFRONTheatCapacity_Cp, |
61 |
& ICEFRONTthetaSurface |
& ICEFRONTthetaSurface |
|
_RL ICEFRONTheatTransCoeff |
|
|
_RL ICEFRONTsaltTransCoeff |
|
62 |
_RL ICEFRONTlatentHeat |
_RL ICEFRONTlatentHeat |
63 |
_RL ICEFRONTheatCapacity_Cp |
_RL ICEFRONTheatCapacity_Cp |
64 |
_RL rhoIcefront |
_RL rhoIcefront |