IF ( buoyancyRelation .EQ. 'OCEANIC' ) THEN
ELSEIF ( buoyancyRelation .EQ. 'OCEANICP' ) THEN
IF ( buoyancyRelation .NE. 'OCEANIC' ) THEN
IF ( buoyancyRelation .eq. 'OCEANIC' ) THEN
ELSEIF ( buoyancyRelation .eq. 'OCEANICP' ) THEN
ELSEIF ( buoyancyRelation .eq. 'ATMOSPHERIC' ) THEN
ELSEIF ( buoyancyRelation .EQ. 'ATMOSPHERIC' ) THEN
IF ( buoyancyRelation .eq. 'ATMOSPHERIC' ) THEN
ELSEIF ( buoyancyRelation .eq. 'OCEANIC' ) THEN
IF ( ( buoyancyRelation .eq. 'ATMOSPHERIC' .OR.
& buoyancyRelation .eq. 'OCEANICP' )
IF ( buoyancyRelation .eq. 'ATMOSPHERIC'
if ( buoyancyRelation .eq. 'OCEANICP' ) then
WRITE(msgBuf,'(A,A40)') 'buoyancyRelation = ', buoyancyRelation
& .AND. buoyancyRelation.EQ.'OCEANICP' ) THEN
IF (buoyancyRelation .EQ. 'ATMOSPHERIC') THEN
& buoyancyRelation(1:11)
& rhoConst, rhoConstFresh, buoyancyRelation, HeatCapacity_Cp,
IF ( buoyancyRelation.EQ.'ATMOSPHERIC' ) THEN
ELSEIF ( buoyancyRelation.EQ.'OCEANICP') THEN
ELSEIF ( buoyancyRelation.EQ.'OCEANIC' ) THEN
IF (buoyancyRelation .EQ. 'ATMOSPHERIC')
CHARACTER*(MAX_LEN_FNAM) buoyancyRelation
& saltClimFile, buoyancyRelation,
IF ( buoyancyRelation .EQ. 'OCEANICP' .OR.
& buoyancyRelation .EQ. 'ATMOSPHERIC' ) THEN
ELSEIF (buoyancyRelation .EQ. 'OCEANICP' ) THEN
IF ( buoyancyRelation .EQ. 'ATMOSPHERIC' ) THEN
buoyancyRelation = 'OCEANIC'
IF ( (buoyancyRelation .EQ. 'OCEANIC' .AND. K .EQ. 2) .OR.
& (buoyancyRelation .EQ. 'OCEANICP' .AND. K .EQ. Nr) ) THEN