include file: C_DENSTY 28
C*L-----------COMDECK C_DENSTY FOR SUBROUTINE SF_EXCH----------            C_DENSTY.2      
C RHOSEA    = density of sea water (kg/m3)                                 C_DENSTY.3      
C RHO_WATER = density of pure water (kg/m3)                                C_DENSTY.4      
      REAL RHOSEA,RHO_WATER                                                C_DENSTY.5      
                                                                           C_DENSTY.6      
      PARAMETER(RHOSEA = 1000.0,                                           C_DENSTY.7      
     &          RHO_WATER = 1000.0)                                        C_DENSTY.8      
C*----------------------------------------------------------------------   C_DENSTY.9