CHARACTER*(6) eosType
& buoyancyRelation, eosType,
CALL WRITE_0D_C( eosType, 0, INDEX_NONE, 'eosType =',
IF ( eosType .EQ. 'POLY3' ) THEN
equationOfState = eosType
& eosType, integr_GeoPot, selectFindRoSurf,
eosType = 'LINEAR'
IF ( eosType.EQ.'IDEALGAS' .AND. atm_Rq.EQ.0. ) THEN
ELSEIF ( eosType.EQ.'LINEAR' ) THEN
& .AND. ( eosType .EQ. 'JMD95P' .OR.
& eosType .EQ. 'UNESCO' .OR.
& eosType .EQ. 'MDJWF' ) )
IF (eosType .EQ. 'LINEAR') THEN
IF ( eosType.EQ.'POLY3' ) THEN