CALL WRITE_0D_R8( salt_EvPrRn, INDEX_NONE,
IF (salt_EvPrRn.NE.UNSET_RL) THEN
& *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
& temp_EvPrRn, salt_EvPrRn, trac_EvPrRn,
& convertFW2Salt, temp_EvPrRn, salt_EvPrRn,
_RL salt_EvPrRn
salt_EvPrRn = 0.