CHARACTER*(MAX_LEN_FNAM) buoyancyRelation
& buoyancyRelation, eosType,
IF ( buoyancyRelation .NE. 'OCEANIC' ) THEN
IF ( buoyancyRelation .EQ. 'ATMOSPHERIC' ) THEN
ELSEIF ( buoyancyRelation .EQ. 'OCEANIC' ) THEN
ELSEIF ( buoyancyRelation .EQ. 'OCEANICP' ) THEN
IF ( buoyancyRelation .EQ. 'OCEANIC' ) THEN
ELSEIF (buoyancyRelation .EQ. 'OCEANICP' ) THEN
ELSEIF ( buoyancyRelation .EQ. 'ATMOSPHERIC' ) THEN
& .AND. buoyancyRelation.EQ.'OCEANICP' ) THEN
CALL WRITE_0D_C( buoyancyRelation, -1, INDEX_NONE,
IF ( buoyancyRelation .EQ. 'OCEANICP' ) THEN
if ( buoyancyRelation .eq. 'OCEANICP' ) then
IF ( ( buoyancyRelation .EQ. 'ATMOSPHERIC' .OR.
& buoyancyRelation .EQ. 'OCEANICP' )
IF ( buoyancyRelation .EQ. 'ATMOSPHERIC'
IF (buoyancyRelation .EQ. 'ATMOSPHERIC') THEN
ELSEIF ( buoyancyRelation.EQ.'OCEANICP' ) THEN
& rhoConst, rhoConstFresh, buoyancyRelation, HeatCapacity_Cp,
IF ( buoyancyRelation.EQ.'ATMOSPHERIC' ) THEN
ELSEIF ( buoyancyRelation.EQ.'OCEANICP') THEN
ELSEIF ( buoyancyRelation.EQ.'OCEANIC' ) THEN
& buoyancyRelation(1:11)
buoyancyRelation = 'OCEANIC'
ELSEIF (buoyancyRelation .EQ. 'OCEANIC') THEN
ELSEIF (buoyancyRelation .EQ. 'OCEANICP') THEN
ELSEIF (buoyancyRelation .EQ. 'ATMOSPHERIC') THEN
IF ( buoyancyRelation.EQ.'OCEANIC' ) THEN
& buoyancyRelation .EQ. 'OCEANICP' ) THEN
IF (buoyancyRelation .EQ. 'ATMOSPHERIC')